Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |