994 |
|
|
995 |
(defparameter *cl-symbols* |
(defparameter *cl-symbols* |
996 |
(let ((pkg (find-package :common-lisp))) |
(let ((pkg (find-package :common-lisp))) |
997 |
(mapcar #'(lambda (str) (intern str pkg)) |
(#-clisp progn |
998 |
*cl-symbol-names*))) |
#+clisp ext:without-package-lock #+clisp ("COMMON-LISP") |
999 |
|
(mapcar #'(lambda (str) (intern str pkg)) |
1000 |
|
*cl-symbol-names*)))) |
1001 |
|
|
1002 |
;;; Symbols classified by their kind in the spec |
;;; Symbols classified by their kind in the spec |
1003 |
(defparameter *cl-function-symbols* |
(defparameter *cl-function-symbols* |