anchor.diff:  ;; and export it.
   
   #.(let ((all-ansi-symbols
  -         '("&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST" "&WHOLE" "*"
  -           "**" "***" "*BREAK-ON-SIGNALS*" "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*"
  -           "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*" "*DEBUGGER-HOOK*"
  -           "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*FEATURES*" "*GENSYM-COUNTER*"
  -           "*LOAD-PATHNAME*" "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*"
  -           "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*"
  -           "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-LINES*"
  -           "*PRINT-MISER-WIDTH*" "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" "*PRINT-RADIX*"
  -           "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*" "*RANDOM-STATE*" "*READ-BASE*"
  -           "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-EVAL*" "*READ-SUPPRESS*" "*READTABLE*"
  -           "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*" "*TRACE-OUTPUT*" "+" "++" "+++" "-"
  -           "/" "//" "///" "/=" "1+" "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS" "ACOSH"
  -           "ADD-METHOD" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" "ALLOCATE-INSTANCE"
  -           "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" "APROPOS" "APROPOS-LIST" "AREF"
  -           "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" "ARRAY"
  -           "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT" "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT"
  -           "ARRAY-ELEMENT-TYPE" "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK"
  -           "ARRAY-RANK-LIMIT" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE" "ARRAY-TOTAL-SIZE-LIMIT"
  -           "ARRAYP" "ASH" "ASIN" "ASINH" "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
  -           "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2"
  -           "BIT-EQV" "BIT-IOR" "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" "BIT-VECTOR"
  -           "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1"
  -           "BOOLE-ANDC2" "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" "BOOLE-NAND"
  -           "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET" "BOOLE-XOR" "BOOLEAN" "BOTH-CASE-P"
  -           "BOUNDP" "BREAK" "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "BUILT-IN-CLASS" "BUTLAST"
  -           "BYTE" "BYTE-POSITION" "BYTE-SIZE" "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR"
  -           "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR" "CALL-ARGUMENTS-LIMIT"
  -           "CALL-METHOD" "CALL-NEXT-METHOD" "CAR" "CASE" "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR"
  -           "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR"
  -           "CDDR" "CDR" "CEILING" "CELL-ERROR" "CELL-ERROR-NAME" "CERROR" "CHANGE-CLASS" "CHAR"
  -           "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-DOWNCASE" "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT"
  -           "CHAR-LESSP" "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP" "CHAR-NOT-LESSP"
  -           "CHAR-UPCASE" "CHAR/=" "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" "CHARACTERP"
  -           "CHECK-TYPE" "CIS" "CLASS" "CLASS-NAME" "CLASS-OF" "CLEAR-INPUT" "CLEAR-OUTPUT" "CLOSE"
  -           "CLRHASH" "CODE-CHAR" "COERCE" "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE"
  -           "COMPILE-FILE-PATHNAME" "COMPILED-FUNCTION" "COMPILED-FUNCTION-P" "COMPILER-MACRO"
  -           "COMPILER-MACRO-FUNCTION" "COMPLEMENT" "COMPLEX" "COMPLEXP" "COMPUTE-APPLICABLE-METHODS"
  -           "COMPUTE-RESTARTS" "CONCATENATE" "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS"
  -           "COND" "CONDITION" "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE"
  -           "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST" "COPY-PPRINT-DISPATCH" "COPY-READTABLE"
  -           "COPY-SEQ" "COPY-STRUCTURE" "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF"
  -           "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM" "DECLARATION" "DECLARE" "DECODE-FLOAT"
  -           "DECODE-UNIVERSAL-TIME" "DEFCLASS" "DEFCONSTANT" "DEFGENERIC" "DEFINE-COMPILER-MACRO"
  -           "DEFINE-CONDITION" "DEFINE-METHOD-COMBINATION" "DEFINE-MODIFY-MACRO"
  -           "DEFINE-SETF-EXPANDER" "DEFINE-SYMBOL-MACRO" "DEFMACRO" "DEFMETHOD" "DEFPACKAGE"
  -           "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" "DELETE"
  -           "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF" "DELETE-IF-NOT" "DELETE-PACKAGE"
  -           "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE" "DESCRIBE-OBJECT" "DESTRUCTURING-BIND"
  -           "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY" "DIRECTORY-NAMESTRING" "DISASSEMBLE"
  -           "DIVISION-BY-ZERO" "DO" "DO*" "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS"
  -           "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT" "DOUBLE-FLOAT-EPSILON"
  -           "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB" "DRIBBLE" "DYNAMIC-EXTENT" "ECASE" "ECHO-STREAM"
  -           "ECHO-STREAM-INPUT-STREAM" "ECHO-STREAM-OUTPUT-STREAM" "ED" "EIGHTH" "ELT"
  -           "ENCODE-UNIVERSAL-TIME" "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING"
  -           "ENSURE-DIRECTORIES-EXIST" "ENSURE-GENERIC-FUNCTION" "EQ" "EQL" "EQUAL" "EQUALP" "ERROR"
  -           "ETYPECASE" "EVAL" "EVAL-WHEN" "EVENP" "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR"
  -           "FBOUNDP" "FCEILING" "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR"
  -           "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING" "FILE-POSITION" "FILE-STREAM"
  -           "FILE-STRING-LENGTH" "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND" "FIND-ALL-SYMBOLS"
  -           "FIND-CLASS" "FIND-IF" "FIND-IF-NOT" "FIND-METHOD" "FIND-PACKAGE" "FIND-RESTART"
  -           "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM" "FLET" "FLOAT" "FLOAT-DIGITS"
  -           "FLOAT-PRECISION" "FLOAT-RADIX" "FLOAT-SIGN" "FLOATING-POINT-INEXACT"
  -           "FLOATING-POINT-INVALID-OPERATION" "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW"
  -           "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER" "FOURTH" "FRESH-LINE"
  -           "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL" "FUNCTION" "FUNCTION-KEYWORDS"
  -           "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" "GCD" "GENERIC-FUNCTION" "GENSYM" "GENTEMP" "GET"
  -           "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER" "GET-INTERNAL-REAL-TIME"
  -           "GET-INTERNAL-RUN-TIME" "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES"
  -           "GET-SETF-EXPANSION" "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P"
  -           "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" "HASH-TABLE-P"
  -           "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-REHASH-THRESHOLD" "HASH-TABLE-SIZE" "HASH-TABLE-TEST"
  -           "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT"
  -           "IN-PACKAGE" "INCF" "INITIALIZE-INSTANCE" "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER"
  -           "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERACTIVE-STREAM-P" "INTERN"
  -           "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVALID-METHOD-ERROR" "INVOKE-DEBUGGER"
  -           "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD" "KEYWORDP" "LABELS"
  -           "LAMBDA" "LAMBDA-LIST-KEYWORDS" "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST"
  -           "LDIFF" "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
  -           "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT"
  -           "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
  -           "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT" "LEAST-POSITIVE-DOUBLE-FLOAT"
  -           "LEAST-POSITIVE-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
  -           "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
  -           "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-POSITIVE-SHORT-FLOAT"
  -           "LEAST-POSITIVE-SINGLE-FLOAT" "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE"
  -           "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES" "LIST-LENGTH" "LISTEN"
  -           "LISTP" "LOAD" "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY" "LOG"
  -           "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV" "LOGICAL-PATHNAME"
  -           "LOGICAL-PATHNAME-TRANSLATIONS" "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2"
  -           "LOGTEST" "LOGXOR" "LONG-FLOAT" "LONG-FLOAT-EPSILON" "LONG-FLOAT-NEGATIVE-EPSILON"
  -           "LONG-SITE-NAME" "LOOP" "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE"
  -           "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" "MACROLET" "MAKE-ARRAY"
  -           "MAKE-BROADCAST-STREAM" "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION"
  -           "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM" "MAKE-HASH-TABLE" "MAKE-INSTANCE"
  -           "MAKE-INSTANCES-OBSOLETE" "MAKE-LIST" "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS"
  -           "MAKE-METHOD" "MAKE-PACKAGE" "MAKE-PATHNAME" "MAKE-RANDOM-STATE" "MAKE-SEQUENCE"
  -           "MAKE-STRING" "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM" "MAKE-SYMBOL"
  -           "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM" "MAKUNBOUND" "MAP" "MAP-INTO" "MAPC" "MAPCAN"
  -           "MAPCAR" "MAPCON" "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF"
  -           "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "METHOD" "METHOD-COMBINATION"
  -           "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "MIN" "MINUSP" "MISMATCH" "MOD"
  -           "MOST-NEGATIVE-DOUBLE-FLOAT" "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT"
  -           "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT"
  -           "MOST-POSITIVE-FIXNUM" "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
  -           "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL"
  -           "MULTIPLE-VALUE-LIST" "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ" "MULTIPLE-VALUES-LIMIT"
  -           "NAME-CHAR" "NAMESTRING" "NBUTLAST" "NCONC" "NEXT-METHOD-P" "NIL" "NINTERSECTION" "NINTH"
  -           "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "NOT" "NOTANY" "NOTEVERY" "NOTINLINE" "NRECONC"
  -           "NREVERSE" "NSET-DIFFERENCE" "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE"
  -           "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT" "NSUBSTITUTE"
  -           "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH" "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP"
  -           "NUMERATOR" "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE"
  -           "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE" "PACKAGE-NAME"
  -           "PACKAGE-NICKNAMES" "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST" "PACKAGE-USED-BY-LIST"
  -           "PACKAGEP" "PAIRLIS" "PARSE-ERROR" "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME"
  -           "PATHNAME-DEVICE" "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P" "PATHNAME-NAME"
  -           "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP" "PEEK-CHAR" "PHASE" "PI" "PLUSP" "POP"
  -           "POSITION" "POSITION-IF" "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH"
  -           "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT" "PPRINT-LINEAR"
  -           "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE" "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1"
  -           "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT" "PRINT-NOT-READABLE"
  -           "PRINT-NOT-READABLE-OBJECT" "PRINT-OBJECT" "PRINT-UNREADABLE-OBJECT" "PROBE-FILE"
  -           "PROCLAIM" "PROG" "PROG*" "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE"
  -           "PSETF" "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" "RANDOM-STATE-P" "RASSOC"
  -           "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" "RATIONAL" "RATIONALIZE" "RATIONALP" "READ"
  -           "READ-BYTE" "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST" "READ-FROM-STRING"
  -           "READ-LINE" "READ-PRESERVING-WHITESPACE" "READ-SEQUENCE" "READER-ERROR" "READTABLE"
  -           "READTABLE-CASE" "READTABLEP" "REAL" "REALP" "REALPART" "REDUCE" "REINITIALIZE-INSTANCE"
  -           "REM" "REMF" "REMHASH" "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT"
  -           "REMOVE-METHOD" "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE" "REST"
  -           "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME" "RETURN" "RETURN-FROM" "REVAPPEND"
  -           "REVERSE" "ROOM" "ROTATEF" "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY" "SATISFIES"
  -           "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" "SEQUENCE" "SERIOUS-CONDITION" "SET"
  -           "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER" "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER"
  -           "SET-PPRINT-DISPATCH" "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW"
  -           "SHADOWING-IMPORT" "SHARED-INITIALIZE" "SHIFTF" "SHORT-FLOAT" "SHORT-FLOAT-EPSILON"
  -           "SHORT-FLOAT-NEGATIVE-EPSILON" "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM"
  -           "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR" "SIMPLE-BIT-VECTOR-P"
  -           "SIMPLE-CONDITION" "SIMPLE-CONDITION-FORMAT-ARGUMENTS" "SIMPLE-CONDITION-FORMAT-CONTROL"
  -           "SIMPLE-ERROR" "SIMPLE-STRING" "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR" "SIMPLE-VECTOR"
  -           "SIMPLE-VECTOR-P" "SIMPLE-WARNING" "SIN" "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON"
  -           "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP" "SLOT-BOUNDP" "SLOT-EXISTS-P"
  -           "SLOT-MAKUNBOUND" "SLOT-MISSING" "SLOT-UNBOUND" "SLOT-VALUE" "SOFTWARE-TYPE"
  -           "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" "SPECIAL" "SPECIAL-OPERATOR-P" "SPEED" "SQRT"
  -           "STABLE-SORT" "STANDARD" "STANDARD-CHAR" "STANDARD-CHAR-P" "STANDARD-CLASS"
  -           "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT" "STEP" "STORAGE-CONDITION"
  -           "STORE-VALUE" "STREAM" "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
  -           "STREAM-EXTERNAL-FORMAT" "STREAMP" "STRING" "STRING-CAPITALIZE" "STRING-DOWNCASE"
  -           "STRING-EQUAL" "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP" "STRING-NOT-EQUAL"
  -           "STRING-NOT-GREATERP" "STRING-NOT-LESSP" "STRING-RIGHT-TRIM" "STRING-STREAM" "STRING-TRIM"
  -           "STRING-UPCASE" "STRING/=" "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
  -           "STRUCTURE" "STRUCTURE-CLASS" "STRUCTURE-OBJECT" "STYLE-WARNING" "SUBLIS" "SUBSEQ"
  -           "SUBSETP" "SUBST" "SUBST-IF" "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF"
  -           "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL" "SYMBOL-FUNCTION"
  -           "SYMBOL-MACROLET" "SYMBOL-NAME" "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP"
  -           "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" "TAGBODY" "TAILP" "TAN" "TANH" "TENTH"
  -           "TERPRI" "THE" "THIRD" "THROW" "TIME" "TRACE" "TRANSLATE-LOGICAL-PATHNAME"
  -           "TRANSLATE-PATHNAME" "TREE-EQUAL" "TRUENAME" "TRUNCATE" "TWO-WAY-STREAM"
  -           "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE" "TYPE-ERROR"
  -           "TYPE-ERROR-DATUM" "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP" "UNBOUND-SLOT"
  -           "UNBOUND-SLOT-INSTANCE" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN"
  -           "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE" "UNUSE-PACKAGE" "UNWIND-PROTECT"
  -           "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
  -           "UPGRADED-ARRAY-ELEMENT-TYPE" "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P" "USE-PACKAGE"
  -           "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST" "VARIABLE" "VECTOR"
  -           "VECTOR-POP" "VECTOR-PUSH" "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" "WHEN"
  -           "WILD-PATHNAME-P" "WITH-ACCESSORS" "WITH-COMPILATION-UNIT" "WITH-CONDITION-RESTARTS"
  -           "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING" "WITH-OPEN-FILE" "WITH-OPEN-STREAM"
  -           "WITH-OUTPUT-TO-STRING" "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART" "WITH-SLOTS"
  -           "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR" "WRITE-LINE" "WRITE-SEQUENCE"
  -           "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P" "ZEROP"))
  +         '(#:&allow-other-keys #:&aux #:&body #:&environment #:&key #:&optional #:&rest #:&whole #:*
  +           #:** #:*** #:*break-on-signals* #:*compile-file-pathname* #:*compile-file-truename*
  +           #:*compile-print* #:*compile-verbose* #:*debug-io* #:*debugger-hook*
  +           #:*default-pathname-defaults* #:*error-output* #:*features* #:*gensym-counter*
  +           #:*load-pathname* #:*load-print* #:*load-truename* #:*load-verbose* #:*macroexpand-hook*
  +           #:*modules* #:*package* #:*print-array* #:*print-base* #:*print-case* #:*print-circle*
  +           #:*print-escape* #:*print-gensym* #:*print-length* #:*print-level* #:*print-lines*
  +           #:*print-miser-width* #:*print-pprint-dispatch* #:*print-pretty* #:*print-radix*
  +           #:*print-readably* #:*print-right-margin* #:*query-io* #:*random-state* #:*read-base*
  +           #:*read-default-float-format* #:*read-eval* #:*read-suppress* #:*readtable*
  +           #:*standard-input* #:*standard-output* #:*terminal-io* #:*trace-output* #:+ #:++ #:+++ #:-
  +           #:/ #:// #:/// #:/= #:1+ #:1- #:< #:<= #:= #:> #:>= #:abort #:abs #:acons #:acos #:acosh
  +           #:add-method #:adjoin #:adjust-array #:adjustable-array-p #:allocate-instance
  +           #:alpha-char-p #:alphanumericp #:and #:append #:apply #:apropos #:apropos-list #:aref
  +           #:arithmetic-error #:arithmetic-error-operands #:arithmetic-error-operation #:array
  +           #:array-dimension #:array-dimension-limit #:array-dimensions #:array-displacement
  +           #:array-element-type #:array-has-fill-pointer-p #:array-in-bounds-p #:array-rank
  +           #:array-rank-limit #:array-row-major-index #:array-total-size #:array-total-size-limit
  +           #:arrayp #:ash #:asin #:asinh #:assert #:assoc #:assoc-if #:assoc-if-not #:atan #:atanh
  +           #:atom #:base-char #:base-string #:bignum #:bit #:bit-and #:bit-andc1 #:bit-andc2
  +           #:bit-eqv #:bit-ior #:bit-nand #:bit-nor #:bit-not #:bit-orc1 #:bit-orc2 #:bit-vector
  +           #:bit-vector-p #:bit-xor #:block #:boole #:boole-1 #:boole-2 #:boole-and #:boole-andc1
  +           #:boole-andc2 #:boole-c1 #:boole-c2 #:boole-clr #:boole-eqv #:boole-ior #:boole-nand
  +           #:boole-nor #:boole-orc1 #:boole-orc2 #:boole-set #:boole-xor #:boolean #:both-case-p
  +           #:boundp #:break #:broadcast-stream #:broadcast-stream-streams #:built-in-class #:butlast
  +           #:byte #:byte-position #:byte-size #:caaaar #:caaadr #:caaar #:caadar #:caaddr #:caadr
  +           #:caar #:cadaar #:cadadr #:cadar #:caddar #:cadddr #:caddr #:cadr #:call-arguments-limit
  +           #:call-method #:call-next-method #:car #:case #:catch #:ccase #:cdaaar #:cdaadr #:cdaar
  +           #:cdadar #:cdaddr #:cdadr #:cdar #:cddaar #:cddadr #:cddar #:cdddar #:cddddr #:cdddr
  +           #:cddr #:cdr #:ceiling #:cell-error #:cell-error-name #:cerror #:change-class #:char
  +           #:char-code #:char-code-limit #:char-downcase #:char-equal #:char-greaterp #:char-int
  +           #:char-lessp #:char-name #:char-not-equal #:char-not-greaterp #:char-not-lessp
  +           #:char-upcase #:char/= #:char< #:char<= #:char= #:char> #:char>= #:character #:characterp
  +           #:check-type #:cis #:class #:class-name #:class-of #:clear-input #:clear-output #:close
  +           #:clrhash #:code-char #:coerce #:compilation-speed #:compile #:compile-file
  +           #:compile-file-pathname #:compiled-function #:compiled-function-p #:compiler-macro
  +           #:compiler-macro-function #:complement #:complex #:complexp #:compute-applicable-methods
  +           #:compute-restarts #:concatenate #:concatenated-stream #:concatenated-stream-streams
  +           #:cond #:condition #:conjugate #:cons #:consp #:constantly #:constantp #:continue
  +           #:control-error #:copy-alist #:copy-list #:copy-pprint-dispatch #:copy-readtable
  +           #:copy-seq #:copy-structure #:copy-symbol #:copy-tree #:cos #:cosh #:count #:count-if
  +           #:count-if-not #:ctypecase #:debug #:decf #:declaim #:declaration #:declare #:decode-float
  +           #:decode-universal-time #:defclass #:defconstant #:defgeneric #:define-compiler-macro
  +           #:define-condition #:define-method-combination #:define-modify-macro
  +           #:define-setf-expander #:define-symbol-macro #:defmacro #:defmethod #:defpackage
  +           #:defparameter #:defsetf #:defstruct #:deftype #:defun #:defvar #:delete
  +           #:delete-duplicates #:delete-file #:delete-if #:delete-if-not #:delete-package
  +           #:denominator #:deposit-field #:describe #:describe-object #:destructuring-bind
  +           #:digit-char #:digit-char-p #:directory #:directory-namestring #:disassemble
  +           #:division-by-zero #:do #:do* #:do-all-symbols #:do-external-symbols #:do-symbols
  +           #:documentation #:dolist #:dotimes #:double-float #:double-float-epsilon
  +           #:double-float-negative-epsilon #:dpb #:dribble #:dynamic-extent #:ecase #:echo-stream
  +           #:echo-stream-input-stream #:echo-stream-output-stream #:ed #:eighth #:elt
  +           #:encode-universal-time #:end-of-file #:endp #:enough-namestring
  +           #:ensure-directories-exist #:ensure-generic-function #:eq #:eql #:equal #:equalp #:error
  +           #:etypecase #:eval #:eval-when #:evenp #:every #:exp #:export #:expt #:extended-char
  +           #:fboundp #:fceiling #:fdefinition #:ffloor #:fifth #:file-author #:file-error
  +           #:file-error-pathname #:file-length #:file-namestring #:file-position #:file-stream
  +           #:file-string-length #:file-write-date #:fill #:fill-pointer #:find #:find-all-symbols
  +           #:find-class #:find-if #:find-if-not #:find-method #:find-package #:find-restart
  +           #:find-symbol #:finish-output #:first #:fixnum #:flet #:float #:float-digits
  +           #:float-precision #:float-radix #:float-sign #:floating-point-inexact
  +           #:floating-point-invalid-operation #:floating-point-overflow #:floating-point-underflow
  +           #:floatp #:floor #:fmakunbound #:force-output #:format #:formatter #:fourth #:fresh-line
  +           #:fround #:ftruncate #:ftype #:funcall #:function #:function-keywords
  +           #:function-lambda-expression #:functionp #:gcd #:generic-function #:gensym #:gentemp #:get
  +           #:get-decoded-time #:get-dispatch-macro-character #:get-internal-real-time
  +           #:get-internal-run-time #:get-macro-character #:get-output-stream-string #:get-properties
  +           #:get-setf-expansion #:get-universal-time #:getf #:gethash #:go #:graphic-char-p
  +           #:handler-bind #:handler-case #:hash-table #:hash-table-count #:hash-table-p
  +           #:hash-table-rehash-size #:hash-table-rehash-threshold #:hash-table-size #:hash-table-test
  +           #:host-namestring #:identity #:if #:ignorable #:ignore #:ignore-errors #:imagpart #:import
  +           #:in-package #:incf #:initialize-instance #:inline #:input-stream-p #:inspect #:integer
  +           #:integer-decode-float #:integer-length #:integerp #:interactive-stream-p #:intern
  +           #:internal-time-units-per-second #:intersection #:invalid-method-error #:invoke-debugger
  +           #:invoke-restart #:invoke-restart-interactively #:isqrt #:keyword #:keywordp #:labels
  +           #:lambda #:lambda-list-keywords #:lambda-parameters-limit #:last #:lcm #:ldb #:ldb-test
  +           #:ldiff #:least-negative-double-float #:least-negative-long-float
  +           #:least-negative-normalized-double-float #:least-negative-normalized-long-float
  +           #:least-negative-normalized-short-float #:least-negative-normalized-single-float
  +           #:least-negative-short-float #:least-negative-single-float #:least-positive-double-float
  +           #:least-positive-long-float #:least-positive-normalized-double-float
  +           #:least-positive-normalized-long-float #:least-positive-normalized-short-float
  +           #:least-positive-normalized-single-float #:least-positive-short-float
  +           #:least-positive-single-float #:length #:let #:let* #:lisp-implementation-type
  +           #:lisp-implementation-version #:list #:list* #:list-all-packages #:list-length #:listen
  +           #:listp #:load #:load-logical-pathname-translations #:load-time-value #:locally #:log
  +           #:logand #:logandc1 #:logandc2 #:logbitp #:logcount #:logeqv #:logical-pathname
  +           #:logical-pathname-translations #:logior #:lognand #:lognor #:lognot #:logorc1 #:logorc2
  +           #:logtest #:logxor #:long-float #:long-float-epsilon #:long-float-negative-epsilon
  +           #:long-site-name #:loop #:loop-finish #:lower-case-p #:machine-instance #:machine-type
  +           #:machine-version #:macro-function #:macroexpand #:macroexpand-1 #:macrolet #:make-array
  +           #:make-broadcast-stream #:make-concatenated-stream #:make-condition
  +           #:make-dispatch-macro-character #:make-echo-stream #:make-hash-table #:make-instance
  +           #:make-instances-obsolete #:make-list #:make-load-form #:make-load-form-saving-slots
  +           #:make-method #:make-package #:make-pathname #:make-random-state #:make-sequence
  +           #:make-string #:make-string-input-stream #:make-string-output-stream #:make-symbol
  +           #:make-synonym-stream #:make-two-way-stream #:makunbound #:map #:map-into #:mapc #:mapcan
  +           #:mapcar #:mapcon #:maphash #:mapl #:maplist #:mask-field #:max #:member #:member-if
  +           #:member-if-not #:merge #:merge-pathnames #:method #:method-combination
  +           #:method-combination-error #:method-qualifiers #:min #:minusp #:mismatch #:mod
  +           #:most-negative-double-float #:most-negative-fixnum #:most-negative-long-float
  +           #:most-negative-short-float #:most-negative-single-float #:most-positive-double-float
  +           #:most-positive-fixnum #:most-positive-long-float #:most-positive-short-float
  +           #:most-positive-single-float #:muffle-warning #:multiple-value-bind #:multiple-value-call
  +           #:multiple-value-list #:multiple-value-prog1 #:multiple-value-setq #:multiple-values-limit
  +           #:name-char #:namestring #:nbutlast #:nconc #:next-method-p #:nil #:nintersection #:ninth
  +           #:no-applicable-method #:no-next-method #:not #:notany #:notevery #:notinline #:nreconc
  +           #:nreverse #:nset-difference #:nset-exclusive-or #:nstring-capitalize #:nstring-downcase
  +           #:nstring-upcase #:nsublis #:nsubst #:nsubst-if #:nsubst-if-not #:nsubstitute
  +           #:nsubstitute-if #:nsubstitute-if-not #:nth #:nth-value #:nthcdr #:null #:number #:numberp
  +           #:numerator #:nunion #:oddp #:open #:open-stream-p #:optimize #:or #:otherwise
  +           #:output-stream-p #:package #:package-error #:package-error-package #:package-name
  +           #:package-nicknames #:package-shadowing-symbols #:package-use-list #:package-used-by-list
  +           #:packagep #:pairlis #:parse-error #:parse-integer #:parse-namestring #:pathname
  +           #:pathname-device #:pathname-directory #:pathname-host #:pathname-match-p #:pathname-name
  +           #:pathname-type #:pathname-version #:pathnamep #:peek-char #:phase #:pi #:plusp #:pop
  +           #:position #:position-if #:position-if-not #:pprint #:pprint-dispatch
  +           #:pprint-exit-if-list-exhausted #:pprint-fill #:pprint-indent #:pprint-linear
  +           #:pprint-logical-block #:pprint-newline #:pprint-pop #:pprint-tab #:pprint-tabular #:prin1
  +           #:prin1-to-string #:princ #:princ-to-string #:print #:print-not-readable
  +           #:print-not-readable-object #:print-object #:print-unreadable-object #:probe-file
  +           #:proclaim #:prog #:prog* #:prog1 #:prog2 #:progn #:program-error #:progv #:provide
  +           #:psetf #:psetq #:push #:pushnew #:quote #:random #:random-state #:random-state-p #:rassoc
  +           #:rassoc-if #:rassoc-if-not #:ratio #:rational #:rationalize #:rationalp #:read
  +           #:read-byte #:read-char #:read-char-no-hang #:read-delimited-list #:read-from-string
  +           #:read-line #:read-preserving-whitespace #:read-sequence #:reader-error #:readtable
  +           #:readtable-case #:readtablep #:real #:realp #:realpart #:reduce #:reinitialize-instance
  +           #:rem #:remf #:remhash #:remove #:remove-duplicates #:remove-if #:remove-if-not
  +           #:remove-method #:remprop #:rename-file #:rename-package #:replace #:require #:rest
  +           #:restart #:restart-bind #:restart-case #:restart-name #:return #:return-from #:revappend
  +           #:reverse #:room #:rotatef #:round #:row-major-aref #:rplaca #:rplacd #:safety #:satisfies
  +           #:sbit #:scale-float #:schar #:search #:second #:sequence #:serious-condition #:set
  +           #:set-difference #:set-dispatch-macro-character #:set-exclusive-or #:set-macro-character
  +           #:set-pprint-dispatch #:set-syntax-from-char #:setf #:setq #:seventh #:shadow
  +           #:shadowing-import #:shared-initialize #:shiftf #:short-float #:short-float-epsilon
  +           #:short-float-negative-epsilon #:short-site-name #:signal #:signed-byte #:signum
  +           #:simple-array #:simple-base-string #:simple-bit-vector #:simple-bit-vector-p
  +           #:simple-condition #:simple-condition-format-arguments #:simple-condition-format-control
  +           #:simple-error #:simple-string #:simple-string-p #:simple-type-error #:simple-vector
  +           #:simple-vector-p #:simple-warning #:sin #:single-float #:single-float-epsilon
  +           #:single-float-negative-epsilon #:sinh #:sixth #:sleep #:slot-boundp #:slot-exists-p
  +           #:slot-makunbound #:slot-missing #:slot-unbound #:slot-value #:software-type
  +           #:software-version #:some #:sort #:space #:special #:special-operator-p #:speed #:sqrt
  +           #:stable-sort #:standard #:standard-char #:standard-char-p #:standard-class
  +           #:standard-generic-function #:standard-method #:standard-object #:step #:storage-condition
  +           #:store-value #:stream #:stream-element-type #:stream-error #:stream-error-stream
  +           #:stream-external-format #:streamp #:string #:string-capitalize #:string-downcase
  +           #:string-equal #:string-greaterp #:string-left-trim #:string-lessp #:string-not-equal
  +           #:string-not-greaterp #:string-not-lessp #:string-right-trim #:string-stream #:string-trim
  +           #:string-upcase #:string/= #:string< #:string<= #:string= #:string> #:string>= #:stringp
  +           #:structure #:structure-class #:structure-object #:style-warning #:sublis #:subseq
  +           #:subsetp #:subst #:subst-if #:subst-if-not #:substitute #:substitute-if
  +           #:substitute-if-not #:subtypep #:svref #:sxhash #:symbol #:symbol-function
  +           #:symbol-macrolet #:symbol-name #:symbol-package #:symbol-plist #:symbol-value #:symbolp
  +           #:synonym-stream #:synonym-stream-symbol #:t #:tagbody #:tailp #:tan #:tanh #:tenth
  +           #:terpri #:the #:third #:throw #:time #:trace #:translate-logical-pathname
  +           #:translate-pathname #:tree-equal #:truename #:truncate #:two-way-stream
  +           #:two-way-stream-input-stream #:two-way-stream-output-stream #:type #:type-error
  +           #:type-error-datum #:type-error-expected-type #:type-of #:typecase #:typep #:unbound-slot
  +           #:unbound-slot-instance #:unbound-variable #:undefined-function #:unexport #:unintern
  +           #:union #:unless #:unread-char #:unsigned-byte #:untrace #:unuse-package #:unwind-protect
  +           #:update-instance-for-different-class #:update-instance-for-redefined-class
  +           #:upgraded-array-element-type #:upgraded-complex-part-type #:upper-case-p #:use-package
  +           #:use-value #:user-homedir-pathname #:values #:values-list #:variable #:vector
  +           #:vector-pop #:vector-push #:vector-push-extend #:vectorp #:warn #:warning #:when
  +           #:wild-pathname-p #:with-accessors #:with-compilation-unit #:with-condition-restarts
  +           #:with-hash-table-iterator #:with-input-from-string #:with-open-file #:with-open-stream
  +           #:with-output-to-string #:with-package-iterator #:with-simple-restart #:with-slots
  +           #:with-standard-io-syntax #:write #:write-byte #:write-char #:write-line #:write-sequence
  +           #:write-string #:write-to-string #:y-or-n-p #:yes-or-no-p #:zerop))
           (packages
            #+clisp  '(:common-lisp :clos)
            #+gcl    '(:lisp :pcl)
            #-(or clisp gcl) '(:common-lisp))
           (gray-symbols
  -         '("FUNDAMENTAL-STREAM"
  -           "FUNDAMENTAL-INPUT-STREAM"
  -           "FUNDAMENTAL-OUTPUT-STREAM"
  -           "FUNDAMENTAL-CHARACTER-STREAM"
  -           "FUNDAMENTAL-BINARY-STREAM"
  -           "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
  -           "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
  -           "FUNDAMENTAL-BINARY-INPUT-STREAM"
  -           "FUNDAMENTAL-BINARY-OUTPUT-STREAM"
  -           "STREAM-READ-CHAR"
  -           "STREAM-UNREAD-CHAR"
  -           "STREAM-READ-CHAR-NO-HANG"
  -           "STREAM-PEEK-CHAR"
  -           "STREAM-LISTEN"
  -           "STREAM-READ-LINE"
  -           "STREAM-CLEAR-INPUT"
  -           "STREAM-WRITE-CHAR"
  -           "STREAM-LINE-COLUMN"
  -           "STREAM-START-LINE-P"
  -           "STREAM-WRITE-STRING"
  -           "STREAM-TERPRI"
  -           "STREAM-FRESH-LINE"
  -           "STREAM-FINISH-OUTPUT"
  -           "STREAM-FORCE-OUTPUT"
  -           "STREAM-ADVANCE-TO-COLUMN"
  -           "STREAM-CLEAR-INPUT"
  -           "STREAM-READ-BYTE"
  -           "STREAM-WRITE-BYTE" ))
  +         '(#:fundamental-stream
  +           #:fundamental-input-stream
  +           #:fundamental-output-stream
  +           #:fundamental-character-stream
  +           #:fundamental-binary-stream
  +           #:fundamental-character-input-stream
  +           #:fundamental-character-output-stream
  +           #:fundamental-binary-input-stream
  +           #:fundamental-binary-output-stream
  +           #:stream-read-char
  +           #:stream-unread-char
  +           #:stream-read-char-no-hang
  +           #:stream-peek-char
  +           #:stream-listen
  +           #:stream-read-line
  +           #:stream-clear-input
  +           #:stream-write-char
  +           #:stream-line-column
  +           #:stream-start-line-p
  +           #:stream-write-string
  +           #:stream-terpri
  +           #:stream-fresh-line
  +           #:stream-finish-output
  +           #:stream-force-output
  +           #:stream-advance-to-column
  +           #:stream-clear-input
  +           #:stream-read-byte
  +           #:stream-write-byte ))
           (gray-packages
  -         `(#+clisp                 ,@'("LISP")
  -           #+cmu                   ,@'("EXT")
  -	   #+mcl                   ,@'("CCL")
  -           #+allegro               ,@'("COMMON-LISP" "EXCL" "STREAM")
  -           #+harlequin-common-lisp ,@'("STREAM")
  -           #+sbcl                  ,@'("SB-GRAY"))) )
  +         `(#+clisp                 ,@'(:lisp)
  +           #+cmu                   ,@'(:ext)
  +	   #+mcl                   ,@'(:ccl)
  +           #+allegro               ,@'(:common-lisp :excl :stream)
  +           #+harlequin-common-lisp ,@'(:stream)
  +           #+sbcl                  ,@'(:sb-gray))) )
       ;;
       (labels ((seek-symbol (name packages)
  -               ;; Seek the a symbol named 'name' in `packages'
  +               ;; seek the a symbol named 'name' in `packages'
                  (or (some #'(lambda (p)
  -                             (multiple-value-bind (sym res) (find-symbol name p)
  +                             (multiple-value-bind (sym res) (find-symbol (symbol-name name) p)
                                  (if (eql res :external)
                                      (list sym)
                                      nil)))
                            packages)
  -                   (progn (format T "~&There is no ~A." name)
  +                   (progn (format t "~&there is no ~A." name)
                             (finish-output)
                             nil)))
                (dump-defpackage (&aux imports export-ansi export-gray)
  
positive.code:                                   (push (car sym) res)
                                    (cond
                                      ((and (find-package :clim-lisp-patch)
                                            (multiple-value-bind (sym2 res) (find-symbol nam :clim-lisp-patch)
                                              (and sym2 (eq res :external))))
                                       ;;
                                       (format T "~&;; ~S is patched." sym)
                                       (finish-output)
                                       (push-import-from nam
                                                         :clim-lisp-patch))
                                      (t
                                       (setf sym (car sym))
                                       ;; CLISP has no (:import ..) ARG!
                                       (push-import-from
                                        (symbol-name sym)
                                        (package-name (symbol-package sym))))))))
  
negative.code: 
  ;(use-package :clim-extensions :clim)
  
  (defpackage :clim-demo
    (:use :clim-extensions :clim :clim-lisp)
    #+excl(:import-from :excl compile-system load-system exit)
    )
  
  (defpackage :clim-user
    (:use :clim :clim-lisp))
  
  (defpackage :goatee
    (:use :clim :clim-lisp :clim-sys)
    (:import-from :clim-internals #:letf)
    (:export
     #:execute-gesture-command
     #:goatee-input-editing-mixin
     #:simple-screen-area))
  
  