Created
June 20, 2010 13:11
-
-
Save valvallow/445834 to your computer and use it in GitHub Desktop.
Common Lisp, On Lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; On Lisp P.400 | |
(princ (let ((syms nil)) | |
(do-symbols (s) | |
(push s syms)) | |
(sort syms #'(lambda (x y) | |
(> (length (symbol-name x)) | |
(length (symbol-name y))))))) | |
;; (LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT | |
;; LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT | |
;; LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT | |
;; LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT | |
;; LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT | |
;; LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT | |
;; LEAST-POSITIVE-NORMALIZED-LONG-FLOAT | |
;; LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT | |
;; FUNDAMENTAL-CHARACTER-OUTPUT-STREAM | |
;; UPDATE-INSTANCE-FOR-DIFFERENT-CLASS | |
;; UPDATE-INSTANCE-FOR-REDEFINED-CLASS | |
;; FUNDAMENTAL-CHARACTER-INPUT-STREAM | |
;; LOAD-LOGICAL-PATHNAME-TRANSLATIONS | |
;; IMPLICIT-GENERIC-FUNCTION-WARNING | |
;; SIMPLE-CONDITION-FORMAT-ARGUMENTS FUNDAMENTAL-BINARY-OUTPUT-STREAM | |
;; *EFFICIENCY-NOTE-COST-THRESHOLD* FLOATING-POINT-INVALID-OPERATION | |
;; FUNDAMENTAL-BINARY-INPUT-STREAM *STACK-ALLOCATE-DYNAMIC-EXTENT* | |
;; *COMPILER-PRINT-VARIABLE-ALIST* SIMPLE-CONDITION-FORMAT-CONTROL | |
;; DOUBLE-FLOAT-POSITIVE-INFINITY IMPLICIT-GENERIC-FUNCTION-NAME | |
;; DOUBLE-FLOAT-NEGATIVE-INFINITY SINGLE-FLOAT-NEGATIVE-INFINITY | |
;; SINGLE-FLOAT-POSITIVE-INFINITY INTERNAL-TIME-UNITS-PER-SECOND | |
;; SHORT-FLOAT-POSITIVE-INFINITY REMOVE-IMPLEMENTATION-PACKAGE | |
;; SHORT-FLOAT-NEGATIVE-INFINITY MAKE-DISPATCH-MACRO-CHARACTER | |
;; LOGICAL-PATHNAME-TRANSLATIONS SINGLE-FLOAT-NEGATIVE-EPSILON | |
;; PPRINT-EXIT-IF-LIST-EXHAUSTED DOUBLE-FLOAT-NEGATIVE-EPSILON | |
;; FUNDAMENTAL-CHARACTER-STREAM LONG-FLOAT-NEGATIVE-INFINITY | |
;; *DEBUG-PRINT-VARIABLE-ALIST* LONG-FLOAT-POSITIVE-INFINITY | |
;; *DEBUG-PRINT-VARIABLE-ALIST* *ONLY-BLOCK-START-LOCATIONS* | |
;; TWO-WAY-STREAM-OUTPUT-STREAM INVOKE-RESTART-INTERACTIVELY | |
;; SET-DISPATCH-MACRO-CHARACTER SHORT-FLOAT-NEGATIVE-EPSILON | |
;; GET-DISPATCH-MACRO-CHARACTER DEFCONSTANT-UNEQL-NEW-VALUE | |
;; DEFCONSTANT-UNEQL-OLD-VALUE *MODULE-PROVIDER-FUNCTIONS* | |
;; PACKAGE-IMPLEMENTED-BY-LIST PACKAGE-LOCKED-ERROR-SYMBOL | |
;; SYMBOL-PACKAGE-LOCKED-ERROR *TRACE-ENCAPSULATE-DEFAULT* | |
;; *DEFAULT-PATHNAME-DEFAULTS* UPGRADED-ARRAY-ELEMENT-TYPE | |
;; HASH-TABLE-REHASH-THRESHOLD LEAST-POSITIVE-DOUBLE-FLOAT | |
;; CONCATENATED-STREAM-STREAMS LEAST-NEGATIVE-DOUBLE-FLOAT | |
;; MAKE-LOAD-FORM-SAVING-SLOTS *READ-DEFAULT-FLOAT-FORMAT* | |
;; LISP-IMPLEMENTATION-VERSION LONG-FLOAT-NEGATIVE-EPSILON | |
;; LEAST-POSITIVE-SINGLE-FLOAT LEAST-NEGATIVE-SINGLE-FLOAT | |
;; TWO-WAY-STREAM-INPUT-STREAM ADD-IMPLEMENTATION-PACKAGE | |
;; *SHOW-ENTRY-POINT-DETAILS* TRANSLATE-LOGICAL-PATHNAME | |
;; UPGRADED-COMPLEX-PART-TYPE LEAST-POSITIVE-SHORT-FLOAT | |
;; MOST-NEGATIVE-DOUBLE-FLOAT ARITHMETIC-ERROR-OPERATION | |
;; COMPUTE-APPLICABLE-METHODS LEAST-NEGATIVE-SHORT-FLOAT | |
;; MOST-NEGATIVE-SINGLE-FLOAT MOST-POSITIVE-SINGLE-FLOAT | |
;; READ-PRESERVING-WHITESPACE MOST-POSITIVE-DOUBLE-FLOAT | |
;; FUNCTION-LAMBDA-EXPRESSION FUNDAMENTAL-BINARY-STREAM | |
;; FUNDAMENTAL-OUTPUT-STREAM HASH-TABLE-SYNCHRONIZED-P | |
;; *INTEXP-MAXIMUM-EXPONENT* *UNDEFINED-WARNING-LIMIT* | |
;; *ENCLOSING-SOURCE-CUTOFF* MOST-POSITIVE-SHORT-FLOAT | |
;; MOST-NEGATIVE-SHORT-FLOAT MAKE-STRING-OUTPUT-STREAM | |
;; PACKAGE-SHADOWING-SYMBOLS ECHO-STREAM-OUTPUT-STREAM | |
;; STANDARD-GENERIC-FUNCTION DEFINE-METHOD-COMBINATION | |
;; PRINT-NOT-READABLE-OBJECT LEAST-NEGATIVE-LONG-FLOAT | |
;; LEAST-POSITIVE-LONG-FLOAT ARITHMETIC-ERROR-OPERANDS | |
;; STREAM-ADVANCE-TO-COLUMN FUNDAMENTAL-INPUT-STREAM | |
;; STREAM-READ-CHAR-NO-HANG RESTRICT-COMPILER-POLICY | |
;; DESCRIBE-COMPILER-POLICY *INLINE-EXPANSION-LIMIT* | |
;; BYTES-CONSED-BETWEEN-GCS *TRACE-INDENTATION-STEP* | |
;; UNWIND-TO-FRAME-AND-CALL LISP-IMPLEMENTATION-TYPE | |
;; MAKE-STRING-INPUT-STREAM WITH-HASH-TABLE-ITERATOR | |
;; BROADCAST-STREAM-STREAMS TYPE-ERROR-EXPECTED-TYPE | |
;; FLOATING-POINT-UNDERFLOW ARRAY-HAS-FILL-POINTER-P | |
;; ENSURE-DIRECTORIES-EXIST GET-OUTPUT-STREAM-STRING | |
;; METHOD-COMBINATION-ERROR MAKE-CONCATENATED-STREAM | |
;; MOST-POSITIVE-LONG-FLOAT MOST-NEGATIVE-LONG-FLOAT | |
;; ECHO-STREAM-INPUT-STREAM STEP-FINISHED-CONDITION | |
;; PACKAGE-IMPLEMENTS-LIST PARSE-NATIVE-NAMESTRING | |
;; *DERIVE-FUNCTION-TYPES* STEP-VARIABLE-CONDITION | |
;; *EFFICIENCY-NOTE-LIMIT* *DEBUG-BEGINNER-HELP-P* | |
;; *MAX-TRACE-INDENTATION* WITH-CONDITION-RESTARTS | |
;; PRINT-UNREADABLE-OBJECT LAMBDA-PARAMETERS-LIMIT | |
;; MAKE-INSTANCES-OBSOLETE ENSURE-GENERIC-FUNCTION | |
;; *PRINT-PPRINT-DISPATCH* WITH-STANDARD-IO-SYNTAX | |
;; *COMPILE-FILE-TRUENAME* *COMPILE-FILE-PATHNAME* | |
;; COMPILER-MACRO-FUNCTION FLOATING-POINT-OVERFLOW | |
;; DEFCONSTANT-UNEQL-NAME DEFINE-HASH-TABLE-TEST | |
;; WITH-LOCKED-HASH-TABLE *INVOKE-DEBUGGER-HOOK* | |
;; WITH-UNLOCKED-PACKAGES NAME-CONFLICT-FUNCTION | |
;; PACKAGE-LOCK-VIOLATION STREAM-EXTERNAL-FORMAT | |
;; ARRAY-TOTAL-SIZE-LIMIT HASH-TABLE-REHASH-SIZE | |
;; GET-INTERNAL-REAL-TIME WITH-INPUT-FROM-STRING | |
;; FLOATING-POINT-INEXACT STREAM-WRITE-SEQUENCE DEFINE-SOURCE-CONTEXT | |
;; DISABLE-PACKAGE-LOCKS STEP-VALUES-CONDITION NAME-CONFLICT-SYMBOLS | |
;; WITHOUT-PACKAGE-LOCKS STEP-CONDITION-RESULT FRAME-HAS-DEBUG-TAG-P | |
;; *PRINT-LOCATION-KIND* DEFINE-ALIEN-VARIABLE UNDEFINED-ALIEN-ERROR | |
;; DEFINE-COMPILER-MACRO COMPILE-FILE-PATHNAME PACKAGE-ERROR-PACKAGE | |
;; USER-HOMEDIR-PATHNAME SYNONYM-STREAM-SYMBOL REINITIALIZE-INSTANCE | |
;; ENCODE-UNIVERSAL-TIME ARRAY-ROW-MAJOR-INDEX DECODE-UNIVERSAL-TIME | |
;; ARRAY-DIMENSION-LIMIT WITH-COMPILATION-UNIT MAKE-BROADCAST-STREAM | |
;; MULTIPLE-VALUES-LIMIT WITH-PACKAGE-ITERATOR GET-INTERNAL-RUN-TIME | |
;; UNBOUND-SLOT-INSTANCE WITH-OUTPUT-TO-STRING STREAM-READ-SEQUENCE | |
;; STREAM-FILE-POSITION STREAM-FINISH-OUTPUT FLOAT-TRAPPING-NAN-P | |
;; ARRAY-STORAGE-VECTOR FLOAT-DENORMALIZED-P PACKAGE-LOCKED-ERROR | |
;; ENABLE-PACKAGE-LOCKS *FLUSH-DEBUG-ERRORS* UNLOAD-SHARED-OBJECT | |
;; DEFINE-ALIEN-ROUTINE MOST-NEGATIVE-FIXNUM INVALID-METHOD-ERROR | |
;; DEFINE-SETF-EXPANDER CALL-ARGUMENTS-LIMIT COPY-PPRINT-DISPATCH | |
;; LAMBDA-LIST-KEYWORDS INTEGER-DECODE-FLOAT DIRECTORY-NAMESTRING | |
;; NO-APPLICABLE-METHOD SINGLE-FLOAT-EPSILON MULTIPLE-VALUE-PROG1 | |
;; SET-SYNTAX-FROM-CHAR INTERACTIVE-STREAM-P MOST-POSITIVE-FIXNUM | |
;; PACKAGE-USED-BY-LIST *PRINT-RIGHT-MARGIN* PPRINT-LOGICAL-BLOCK | |
;; DOUBLE-FLOAT-EPSILON STREAM-CLEAR-OUTPUT STREAM-WRITE-STRING | |
;; STREAM-START-LINE-P STREAM-FORCE-OUTPUT STEP-CONDITION-FORM | |
;; PROCESS-STATUS-HOOK STEP-CONDITION-ARGS SYMBOL-GLOBAL-VALUE | |
;; PROCESS-CORE-DUMPED CANCEL-FINALIZATION HASH-TABLE-WEAKNESS | |
;; UNMUFFLE-CONDITIONS STEP-FORM-CONDITION NAME-CONFLICT-DATUM | |
;; *DEBUG-HELP-STRING* SYSTEM-AREA-POINTER DEFINE-SYMBOL-MACRO | |
;; *PRINT-MISER-WIDTH* FILE-ERROR-PATHNAME COMPILED-FUNCTION-P | |
;; CONCATENATED-STREAM DEFINE-MODIFY-MACRO MULTIPLE-VALUE-CALL | |
;; SIMPLE-BIT-VECTOR-P MULTIPLE-VALUE-SETQ SHORT-FLOAT-EPSILON | |
;; GET-MACRO-CHARACTER READ-DELIMITED-LIST MAKE-SYNONYM-STREAM | |
;; DO-EXTERNAL-SYMBOLS STREAM-ELEMENT-TYPE INITIALIZE-INSTANCE | |
;; MAKE-TWO-WAY-STREAM MULTIPLE-VALUE-LIST STRING-NOT-GREATERP | |
;; STREAM-ERROR-STREAM SET-PPRINT-DISPATCH MULTIPLE-VALUE-BIND | |
;; WITH-SIMPLE-RESTART SET-MACRO-CHARACTER FUNDAMENTAL-STREAM | |
;; STREAM-UNREAD-CHAR STREAM-CLEAR-INPUT STREAM-LINE-LENGTH | |
;; STREAM-LINE-COLUMN *MUFFLED-WARNINGS* CODE-DELETION-NOTE | |
;; *COMPILE-PROGRESS* WEAK-POINTER-VALUE LOAD-SHARED-OBJECT | |
;; UNSIGNED-LONG-LONG PRINT-NOT-READABLE *MACROEXPAND-HOOK* | |
;; TRANSLATE-PATHNAME NSTRING-CAPITALIZE DESTRUCTURING-BIND | |
;; ARRAY-DISPLACEMENT ARRAY-ELEMENT-TYPE SIMPLE-BASE-STRING | |
;; PATHNAME-DIRECTORY FILE-STRING-LENGTH GET-SETF-EXPANSION | |
;; METHOD-COMBINATION LONG-FLOAT-EPSILON *BREAK-ON-SIGNALS* | |
;; SPECIAL-OPERATOR-P NSUBSTITUTE-IF-NOT ADJUSTABLE-ARRAY-P | |
;; VECTOR-PUSH-EXTEND GET-UNIVERSAL-TIME UNDEFINED-FUNCTION | |
;; STREAM-FRESH-LINE STREAM-WRITE-BYTE STREAM-WRITE-CHAR | |
;; SAVE-LISP-AND-DIE DEFCONSTANT-UNEQL MUFFLE-CONDITIONS | |
;; TIMER-SCHEDULED-P NATIVE-NAMESTRING MAKE-WEAK-POINTER | |
;; PROCESS-EXIT-CODE *DEBUG-CONDITION* BACKTRACE-AS-LIST | |
;; *TRACED-FUN-LIST* *IN-THE-DEBUGGER* *DEBUG-READTABLE* | |
;; DEFINE-ALIEN-TYPE ENOUGH-NAMESTRING STORAGE-CONDITION | |
;; PACKAGE-NICKNAMES READ-CHAR-NO-HANG COMPILED-FUNCTION | |
;; *STANDARD-OUTPUT* STRING-RIGHT-TRIM ALLOCATE-INSTANCE | |
;; NSET-EXCLUSIVE-OR SERIOUS-CONDITION STRING-CAPITALIZE | |
;; CHAR-NOT-GREATERP ARRAY-IN-BOUNDS-P FUNCTION-KEYWORDS | |
;; REMOVE-DUPLICATES COMPILATION-SPEED SIMPLE-BIT-VECTOR | |
;; SUBSTITUTE-IF-NOT SHARED-INITIALIZE DELETE-DUPLICATES | |
;; MAKE-RANDOM-STATE SIMPLE-TYPE-ERROR METHOD-QUALIFIERS | |
;; *COMPILE-VERBOSE* LIST-ALL-PACKAGES &ALLOW-OTHER-KEYS | |
;; STREAM-READ-BYTE STREAM-READ-CHAR STREAM-READ-LINE | |
;; STREAM-PEEK-CHAR *AFTER-GC-HOOKS* STRING-TO-OCTETS | |
;; COMPARE-AND-SWAP INTERACTIVE-EVAL FLOAT-INFINITY-P | |
;; RESOLVE-CONFLICT GET-BYTES-CONSED UNSCHEDULE-TIMER | |
;; PACKAGE-LOCKED-P DISABLE-DEBUGGER *EVALUATOR-MODE* | |
;; INHIBIT-WARNINGS CALL-WITH-TIMING OCTETS-TO-STRING | |
;; DO-DEBUG-COMMAND *STACK-TOP-HINT* SET-EXCLUSIVE-OR | |
;; PACKAGE-USE-LIST ARRAY-TOTAL-SIZE *STANDARD-INPUT* | |
;; ARITHMETIC-ERROR UNBOUND-VARIABLE STRING-NOT-LESSP | |
;; STRING-NOT-EQUAL SOFTWARE-VERSION STRUCTURE-OBJECT | |
;; NSTRING-DOWNCASE HASH-TABLE-COUNT ARRAY-DIMENSIONS | |
;; BROADCAST-STREAM PATHNAME-MATCH-P MAKE-ECHO-STREAM | |
;; *GENSYM-COUNTER* GENERIC-FUNCTION PARSE-NAMESTRING | |
;; STRING-LEFT-TRIM SIMPLE-CONDITION WITH-OPEN-STREAM | |
;; TYPE-ERROR-DATUM COMPUTE-RESTARTS GET-DECODED-TIME | |
;; FIND-ALL-SYMBOLS ARRAY-RANK-LIMIT READ-FROM-STRING | |
;; CALL-NEXT-METHOD LOGICAL-PATHNAME PATHNAME-VERSION | |
;; DEFINE-CONDITION *PRINT-READABLY* SHADOWING-IMPORT | |
;; DIVISION-BY-ZERO MACHINE-INSTANCE PROCESS-ALIVE-P *CORE-PATHNAME* | |
;; ENABLE-DEBUGGER GET-TIME-OF-DAY NATIVE-PATHNAME LIST-ALL-TIMERS | |
;; STANDARD-METHOD *READ-SUPPRESS* PRINC-TO-STRING *LOAD-TRUENAME* | |
;; STRUCTURE-CLASS FILE-WRITE-DATE SIMPLE-STRING-P OUTPUT-STREAM-P | |
;; CHAR-CODE-LIMIT NSET-DIFFERENCE STRING-DOWNCASE PATHNAME-DEVICE | |
;; DESCRIBE-OBJECT FILE-NAMESTRING PPRINT-DISPATCH HOST-NAMESTRING | |
;; HASH-TABLE-TEST SIMPLE-VECTOR-P MACHINE-VERSION INVOKE-DEBUGGER | |
;; SYMBOL-FUNCTION PRIN1-TO-STRING ARRAY-DIMENSION WILD-PATHNAME-P | |
;; STRING-GREATERP POSITION-IF-NOT SLOT-MAKUNBOUND *LOAD-PATHNAME* | |
;; MERGE-PATHNAMES MAKE-HASH-TABLE CELL-ERROR-NAME STANDARD-CHAR-P | |
;; FLOAT-PRECISION STANDARD-OBJECT LOAD-TIME-VALUE *COMPILE-PRINT* | |
;; SYMBOL-MACROLET WRITE-TO-STRING *DEBUGGER-HOOK* SHORT-SITE-NAME | |
;; HASH-TABLE-SIZE PROCESS-STATUS WEAK-POINTER-P *STEPPER-HOOK* | |
;; SCHEDULE-TIMER *ED-FUNCTIONS* UNLOCK-PACKAGE PROCESS-OUTPUT | |
;; STEP-CONDITION INTERNAL-DEBUG *TRACE-VALUES* UNSIGNED-SHORT | |
;; LOAD-1-FOREIGN SYNONYM-STREAM PPRINT-NEWLINE INPUT-STREAM-P | |
;; GET-PROPERTIES READTABLE-CASE COPY-STRUCTURE BUILT-IN-CLASS | |
;; *ERROR-OUTPUT* INTEGER-LENGTH MAKE-LOAD-FORM *TRACE-OUTPUT* | |
;; WITH-ACCESSORS *PRINT-ESCAPE* *LOAD-VERBOSE* ROW-MAJOR-AREF | |
;; COMPILER-MACRO SET-DIFFERENCE DO-ALL-SYMBOLS COPY-READTABLE | |
;; MACRO-FUNCTION SYMBOL-PACKAGE SIMPLE-WARNING *PRINT-GENSYM* | |
;; DYNAMIC-EXTENT *PRINT-CIRCLE* MUFFLE-WARNING *PRINT-PRETTY* | |
;; GRAPHIC-CHAR-P TWO-WAY-STREAM CHAR-NOT-LESSP MAKE-CONDITION | |
;; CHAR-NOT-EQUAL LONG-SITE-NAME NSTRING-UPCASE NSUBSTITUTE-IF | |
;; STANDARD-CLASS RENAME-PACKAGE NO-NEXT-METHOD WITH-OPEN-FILE | |
;; RANDOM-STATE-P PPRINT-TABULAR WRITE-SEQUENCE *RANDOM-STATE* | |
;; INVOKE-RESTART DELETE-PACKAGE UNWIND-PROTECT *PRINT-LENGTH* | |
;; STREAM-TERPRI STREAM-LISTEN STEP-CONTINUE PROCESS-CLOSE | |
;; PROCESS-PLIST POSIX-ENVIRON PROCESS-INPUT PROCESS-ERROR | |
;; *GC-RUN-TIME* NAME-CONFLICT COMPILER-NOTE *TRACE-FRAME* | |
;; UNSIGNED-LONG UNSIGNED-CHAR ALIEN-FUNCALL IGNORE-ERRORS | |
;; MAKE-SEQUENCE REMOVE-IF-NOT BYTE-POSITION OPEN-STREAM-P | |
;; FILE-POSITION *PRINT-ARRAY* PPRINT-LINEAR RASSOC-IF-NOT | |
;; STANDARD-CHAR CONTROL-ERROR PPRINT-INDENT PATHNAME-TYPE | |
;; *PRINT-LEVEL* SIMPLE-STRING STRING-UPCASE NINTERSECTION | |
;; *PRINT-LINES* DOCUMENTATION UNSIGNED-BYTE SOFTWARE-TYPE | |
;; *PRINT-RADIX* UNUSE-PACKAGE PROGRAM-ERROR NEXT-METHOD-P | |
;; PATHNAME-NAME NSUBST-IF-NOT FINISH-OUTPUT EXTENDED-CHAR | |
;; MEMBER-IF-NOT PATHNAME-HOST ALPHANUMERICP SUBSTITUTE-IF | |
;; MACROEXPAND-1 PARSE-INTEGER CHAR-GREATERP MAKE-PATHNAME | |
;; STYLE-WARNING DELETE-IF-NOT PACKAGE-ERROR *TERMINAL-IO* | |
;; READ-SEQUENCE CHAR-DOWNCASE REMOVE-METHOD DEPOSIT-FIELD | |
;; MAKE-INSTANCE STRING-STREAM SIMPLE-VECTOR SLOT-EXISTS-P | |
;; *SAVE-HOOKS* WEAK-POINTER PROCESS-KILL INVALID-FASL ALWAYS-BOUND | |
;; MAYBE-INLINE *EXIT-HOOKS* POSIX-GETENV *POSIX-ARGV* PROCESS-WAIT | |
;; LOCK-PACKAGE *INIT-HOOKS* WITH-TIMEOUT UNSIGNED-INT LOAD-FOREIGN | |
;; SINGLE-FLOAT EXTERN-ALIEN DOUBLE-FLOAT BIT-VECTOR-P *PRINT-CASE* | |
;; MAKE-PACKAGE COUNT-IF-NOT INTERSECTION UNBOUND-SLOT SLOT-UNBOUND | |
;; *PRINT-BASE* LOWER-CASE-P CHANGE-CLASS STREAM-ERROR HANDLER-BIND | |
;; UPPER-CASE-P SIMPLE-ARRAY PRINT-OBJECT CLEAR-OUTPUT APROPOS-LIST | |
;; ALPHA-CHAR-P FIND-RESTART ADJUST-ARRAY HASH-TABLE-P DECODE-FLOAT | |
;; FORCE-OUTPUT *LOAD-PRINT* DOUBLE-FLOAT RESTART-NAME FIND-PACKAGE | |
;; RESTART-CASE DEFPARAMETER RESTART-BIND WRITE-STRING FLOAT-DIGITS | |
;; STRING-LESSP STRING-EQUAL DIGIT-CHAR-P ASSOC-IF-NOT READER-ERROR | |
;; FILL-POINTER HANDLER-CASE &ENVIRONMENT SUBST-IF-NOT PACKAGE-NAME | |
;; SIMPLE-ERROR MACHINE-TYPE RANDOM-STATE SLOT-MISSING COMPILE-FILE | |
;; SYMBOL-PLIST SINGLE-FLOAT SYMBOL-VALUE FREEZE-TYPE ATOMIC-INCF | |
;; FLOAT-NAN-P RUN-PROGRAM *INSPECTED* PROCESS-PID PROCESS-PTY | |
;; UTF8-STRING BOOLE-ANDC2 MAKE-STRING MACROEXPAND LOOP-FINISH | |
;; MAKE-METHOD FILE-LENGTH FILE-AUTHOR CLEAR-INPUT MAKE-SYMBOL | |
;; UNREAD-CHAR ECHO-STREAM FILE-STREAM PARSE-ERROR YES-OR-NO-P | |
;; STORE-VALUE SLOT-BOUNDP DENOMINATOR SYMBOL-NAME FMAKUNBOUND | |
;; PPRINT-FILL USE-PACKAGE NSUBSTITUTE DECLARATION RATIONALIZE | |
;; RETURN-FROM FIND-METHOD SHORT-FLOAT END-OF-FILE LIST-LENGTH | |
;; FLOAT-RADIX FDEFINITION BOTH-CASE-P BASE-STRING FIND-SYMBOL | |
;; SIGNED-BYTE VALUES-LIST RENAME-FILE STABLE-SORT DEFCONSTANT | |
;; DISASSEMBLE FIND-IF-NOT *READTABLE* BOOLE-ANDC1 CONCATENATE | |
;; *READ-EVAL* STRING-TRIM DELETE-FILE COPY-SYMBOL CHAR-UPCASE | |
;; VECTOR-PUSH SCALE-FLOAT POSITION-IF CALL-METHOD *READ-BASE* | |
;; MAKE-TIMER TIMER-NAME NULL-ALIEN MAKE-ALIEN FREE-ALIEN LONG-FLOAT | |
;; ALIEN-SIZE WITH-ALIEN WITH-SLOTS COMPLEMENT SUBSTITUTE CHAR-LESSP | |
;; ARRAY-RANK PPRINT-POP FIND-CLASS BOOLE-ORC1 DO-SYMBOLS TYPE-ERROR | |
;; COPY-ALIST WRITE-LINE PROBE-FILE WRITE-BYTE HASH-TABLE CONSTANTLY | |
;; BOOLE-NAND WRITE-CHAR FLOAT-SIGN *DEBUG-IO* FILE-ERROR TREE-EQUAL | |
;; NAMESTRING CHECK-TYPE IN-PACKAGE BOOLE-ORC2 MAKE-ARRAY SLOT-VALUE | |
;; CHARACTERP DEFGENERIC CELL-ERROR LONG-FLOAT *FEATURES* CHAR-EQUAL | |
;; DIGIT-CHAR ADD-METHOD BIT-VECTOR MAKUNBOUND READTABLEP CLASS-NAME | |
;; VECTOR-POP FRESH-LINE MASK-FIELD DEFPACKAGE *QUERY-IO* PPRINT-TAB | |
;; 2010-01-06 UNPROFILE TRULY-THE STEP-NEXT DEFGLOBAL STEP-INTO | |
;; PROCESS-P BACKTRACE LONG-LONG SAP-ALIEN ALIEN-SAP GET-ERRNO | |
;; BIT-ANDC1 DEFMETHOD READ-LINE FUNCTIONP FORMATTER NOTINLINE | |
;; BOOLE-AND PEEK-CHAR READ-BYTE BIT-ANDC2 DIRECTORY STRUCTURE | |
;; &OPTIONAL NUMERATOR CONSTANTP DEFSTRUCT SATISFIES FTRUNCATE | |
;; BYTE-SIZE BOOLE-CLR *MODULES* REVAPPEND COPY-TREE CHAR-NAME | |
;; BOOLE-IOR CHAR-CODE ETYPECASE READ-CHAR NTH-VALUE CONJUGATE | |
;; CTYPECASE RASSOC-IF IGNORABLE OTHERWISE CODE-CHAR MAKE-LIST | |
;; MEMBER-IF PATHNAMEP BOOLE-EQV COPY-LIST EVAL-WHEN BOOLE-NOR | |
;; BASE-CHAR CHARACTER CONDITION RATIONALP BOOLE-XOR USE-VALUE | |
;; *PACKAGE* REMOVE-IF NSUBST-IF BOOLE-SET NAME-CHAR DELETE-IF | |
;; READTABLE FINALIZE STEP-OUT C-STRING FUNCTION UNSIGNED TRUENAME | |
;; IDENTITY BIT-NAND IMAGPART NREVERSE KEYWORDP MISMATCH ASSOC-IF | |
;; TYPECASE CLASS-OF NBUTLAST PROCLAIM FUNCTION DEFCLASS CHAR-INT | |
;; SUBTYPEP SEQUENCE NOTEVERY BOOLE-C1 STRING<= INTEGERP LOGANDC1 | |
;; MAP-INTO LDB-TEST COPY-SEQ MACROLET BIT-ORC2 BIT-ORC1 POSITION | |
;; REALPART UNINTERN PATHNAME RATIONAL PACKAGEP OPTIMIZE LOGCOUNT | |
;; STRING>= DEFMACRO TRUNCATE VARIABLE STRING/= UNEXPORT LOGANDC2 | |
;; Y-OR-N-P STANDARD BOOLE-C2 COUNT-IF SUBST-IF FCEILING DESCRIBE | |
;; CONTINUE COMPLEXP PROFILE TIMEOUT INTEGER BOOLEAN DECLAIM DEFTYPE | |
;; STRING= NSUBLIS LOGTEST PROVIDE BIT-XOR STREAMP LOGORC2 BUTLAST | |
;; BIT-EQV STRING< BIT-IOR BIT-NOR WARNING UNTRACE SPECIAL SUBSETP | |
;; LOGORC1 BIT-AND LOGNAND ROTATEF REMHASH MAPLIST FBOUNDP CLRHASH | |
;; PACKAGE STRINGP PUSHNEW REMPROP LOGBITP PAIRLIS KEYWORD FUNCALL | |
;; TAGBODY BOOLE-2 CEILING COMPLEX REQUIRE STRING> INSPECT BOOLE-1 | |
;; NUMBERP GETHASH COMPILE VECTORP REPLACE MAPHASH SEVENTH DECLARE | |
;; REVERSE INTEGER NRECONC FIND-IF LOCALLY GENTEMP BOOLEAN DRIBBLE | |
;; BIT-NOT SYMBOLP DOTIMES APROPOS RESTART DEFSETF TYPE-OF REPORT | |
;; GLOBAL PURIFY SIGNED STRUCT DOUBLE VALUES RASSOC FROUND MINUSP | |
;; EQUALP VECTOR LABELS TERPRI CHAR<= FOURTH RPLACD SIGNUM CAADDR | |
;; SUBSEQ CADAAR FORMAT BIGNUM FLOATP EIGHTH GENSYM VALUES INTERN | |
;; APPEND UNLESS REDUCE ASSERT ADJOIN INLINE DOLIST SUBLIS LISTEN | |
;; DELETE FIXNUM NUNION SHIFTF CDADAR CDAAAR LOGAND LOGNOT IGNORE | |
;; PPRINT BOUNDP LOGXOR CDDDAR CDDAAR CAAAAR LAMBDA CADDAR SHADOW | |
;; LENGTH MEMBER DEFVAR CADADR SECOND MAPCAN NTHCDR &WHOLE STREAM | |
;; STRING CADDDR RPLACA COERCE SXHASH SYMBOL NOTANY MAPCON CDDADR | |
;; IMPORT MAPCAR CDAADR SIGNAL RANDOM LOGNOR NSUBST CERROR CDADDR | |
;; CHAR>= REMOVE EXPORT SEARCH NUMBER RETURN LOGIOR SAFETY CHAR/= | |
;; LOGEQV METHOD CDDDDR ARRAYP CAAADR CAADAR FFLOOR RESET TIMER FLOAT | |
;; ARRAY DEREF ALIEN UNION SHORT PSETQ QUOTE DEFUN &REST ROUND FLOAT | |
;; PROGN APPLY TENTH EVERY PSETF PROG* ABORT CDDAR CATCH CDADR ECASE | |
;; BREAK PHASE ARRAY SLEEP CADAR BLOCK CDAAR COUNT ERROR ASSOC TYPEP | |
;; ACOSH ACONS CDDDR NCONC ATANH FTYPE SPACE FIRST SIXTH THIRD RATIO | |
;; LDIFF PRIN1 DEBUG CAADR SUBST &BODY PRINT EQUAL PROG1 WRITE EVENP | |
;; CAAAR PROG2 ASINH TRACE PLUSP REALP UNION SCHAR CONSP CLOSE SPEED | |
;; CLASS CCASE CADDR LIST* CHAR< SVREF ISQRT ZEROP LISTP BOOLE FLOOR | |
;; PRINC MERGE CHAR> FIFTH TAILP NINTH PROGV CHAR= THROW QUIT SLOT | |
;; CHAR CAST ADDR VOID ENUM LONG REAL MAPL LET* CDDR ATAN CONS PROG | |
;; REST TIME GETF REMF LOAD SORT CADR CDAR WHEN TYPE CHAR ACOS LOOP | |
;; COND LAST FLET NULL ASIN FILL WARN PUSH INCF OPEN TANH ATOM CAAR | |
;; BYTE ENDP AREF &KEY SOME SQRT FIND ROOM &AUX MAPC LIST SINH EXPT | |
;; DECF SBIT SETQ EVAL READ STEP ODDP SETF CASE COSH SYMS ARG VAR INT | |
;; SIN REM AND BIT CAR MAP NIL +++ NOT MIN COS EXP SET GET DPB NTH | |
;; MAX GCD LET LOG DO* ABS ASH THE CDR *** POP MOD LCM /// EQL ELT | |
;; TAN CIS LDB GC 1- >= ++ OR ** GO // <= DO EQ ED 1+ PI IF /= * > + | |
;; T * = < - / X Y S) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment