anchor.diff:      length make-sequence
       subseq 
       replace reverse nreverse
  -    (merge smack-merge)
  -    (mismatch smack-mismatch) 
  -    (reduce smack-reduce) 
  -    (remove-duplicates smack-remove-duplicates)
  -    (delete-duplicates smack-delete-duplicates)
  -    (search smack-search)
  -    (sort smack-sort)
  -    (stable-sort smack-stable-sort)
  -    (count smack-count)
  -    (count-if smack-count-if)
  -    (find smack-find)
  -    (find-if smack-find-if)
  -    (position smack-position)
  -    (position-if smack-position-if)
  -    (remove smack-remove)
  -    (remove-if smack-remove-if)
  -    (delete smack-delete)
  -    (delete-if smack-delete-if)
  -    (substitute smack-substitute) 
  -    (substitute-if smack-substitute-if)
  -    (nsubstitute smack-nsubstitute)
  -    (nsubstitute-if smack-nsubstitute-if)
  -    (map smack-map)
  -    (map-into smack-map-into)
  +
       
       ;; hash tables
       clrhash gethash hash-table-count hash-table-p
       hash-table-rehash-size hash-table-rehash-threshold
       hash-table-size hash-table-test
       remhash sxhash
  -    (make-hash-table smack-make-hash-table)
  -    (maphash smack-maphash) 
       
       ;; reader
       ;; (read smack-read)
  +
       ;; printer
       prin1 princ terpri print    
  +
       ;; system construction
       (load smack-load-file)
  +
       ;; environment
       decode-universal-time encode-universal-time
       get-decoded-time get-internal-real-time
       get-universal-time
       (lisp-implementation-type smack-lisp-implementation-type)
       (lisp-implementation-version smack-lisp-implementation-version)
  +    
       ;; smacklisp extension
  -    
       (%defconstant smack-defconstant)
       (%defstruct smack-defstruct)
  -    (quit smack-quit))
  -
  -)
  +    (quit smack-quit)))
   
   (defparameter *smack-constants*
     '(
  
positive.code:     PI SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON SINGLE-FLOAT-EPSILON
      SINGLE-FLOAT-NEGATIVE-EPSILON T))
  
  (defun init-smack-interp ()
    "Initialize the smacklisp interpreter with some global variables."
    ;; Define Smacklisp procedures as CL functions:
  
negative.code: (in-package :smacklisp)
  
  (defparameter *smack-procs*
    '(
  