;;; -*- Mode:LISP; Package:LISP-INTERNALS; Base:10; Readtable:CL -*-


(lisp:defmacro setup-li-fakes (&rest fakes)
  (do ((fakes fakes (lisp:cddr fakes))
       (forms '() (lisp:cons `(zl:deff ,(lisp:car fakes) #',(lisp:cadr fakes))
			     forms)))
      ((lisp:null fakes) `(lisp:progn . ,forms))))

(setup-li-fakes
  intern      lisp:intern
  apply       lisp:apply
;  macroexpand nlisp::macroexpand
  defstruct   lisp:defstruct
  symbol-name lisp:symbol-name
  symbol-value lisp:symbol-value
  concatenate lisp:concatenate
  mapcar      lisp:mapcar
  dolist      lisp:dolist
  reverse     lisp:reverse
  car         lisp:car
  cdr         lisp:cdr
  first       lisp:first
  second      lisp:second
  third       lisp:third
  caar        lisp:caar
  cadr        lisp:cadr
  cdar        lisp:cdar
  cddr        lisp:cddr
  cdddr       lisp:cdddr
  caddr       lisp:caddr
  nthcdr      lisp:nthcdr

  array:make-vector global:make-array
  array:svset       global:aset
  svref       lisp:svref

  string      lisp:string
  make-list   lisp:make-list
  cons        lisp:cons
  list        lisp:list
  list*       lisp:list*
  vector      lisp:vector
  make-symbol lisp:make-symbol
  make-hash-table lisp:make-hash-table
  gethash     lisp:gethash
  member      lisp:member
  assoc       lisp:assoc
  subst       lisp:subst
  length      lisp:length
  rassoc      lisp:rassoc
  mapcan      lisp:mapcan
  every       lisp:every
  nreverse    lisp:nreverse
  pushnew     lisp:pushnew
 
  atom        lisp:atom
  listp       lisp:listp
  consp       lisp:consp
  symbolp     lisp:symbolp
  integerp    lisp:integerp
  stringp     lisp:stringp
  keywordp    lisp:keywordp
  numberp     lisp:numberp
  complexp    lisp:complexp
  constantp   lisp:constantp

  equal       lisp:equal
  eql         lisp:eql

  substitute-if lisp:substitute-if
  getf        lisp:getf
  
  error       lisp:error
  cerror      lisp:cerror
  check-type  lisp:check-type
 
  subtypep    lisp:subtypep

  gentemp     lisp:gentemp
  gensym      lisp:gensym

  log	      lisp:log

  )

(global:defvar lambda-list-keywords lisp:lambda-list-keywords)
(global:defvar most-positive-fixnum lisp:most-positive-fixnum)
(global:defvar most-negative-fixnum lisp:most-negative-fixnum)

;;;; until new-setf is loaded
;(zl:deff push   #'lisp:push)
;(zl:deff pop    #'lisp:pop)
;(zl:deff incf   #'lisp:incf)


(lisp:deftype symbol () 'lisp:symbol)
(lisp:deftype string () 'lisp:string)
(lisp:deftype cons   () 'lisp:cons)
(lisp:deftype string-char () 'lisp:string-char)
(lisp:deftype list  () 'lisp:list)
(lisp:deftype vector () 'lisp:vector)

(lisp:defsetf gethash (k ht) (v)
  `(lisp:setf (lisp:gethash ,k ,ht) ,v))

(lisp:defsetf car (x) (v)
  `(lisp:setf (lisp:car ,x) ,v))

(lisp:defsetf cdr (x) (v)
  `(lisp:setf (lisp:cdr ,x) ,v))

(lisp:defsetf svref (x i) (v)
  `(lisp:setf (lisp:svref ,x ,i) ,v))