/[gcl]/gcl/ansi-tests/cl-symbols-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cl-symbols-aux.lsp

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

revision 1.1 by pfdietz, Fri Nov 29 21:48:06 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 23:19:51 2003 UTC
# Line 16  Line 16 
16  (defun test-if-not-in-cl-package (str)  (defun test-if-not-in-cl-package (str)
17    (multiple-value-bind (sym status)    (multiple-value-bind (sym status)
18        (find-symbol (string-upcase str) 'common-lisp)        (find-symbol (string-upcase str) 'common-lisp)
       (declare (ignore sym))  
19        (or        (or
20         ;; Symbol not present in the common lisp package         ;; Symbol not present in the common lisp package
21         (not status)         (not status)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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