/[gcl]/gcl/ansi-tests/cl-symbol-names.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbol-names.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by pfdietz, Sun Sep 14 20:30:05 2003 UTC revision 1.10 by pfdietz, Sun Oct 5 11:31:25 2003 UTC
# Line 994  Line 994 
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*

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26