Parent Directory | Revision Log | Patch
revision 1.4 by camm, Sat Jul 23 08:51:51 2005 UTC | revision 1.5 by camm, Sun Sep 18 02:46:35 2005 UTC | |
---|---|---|
# | Line 34 | Line 34 |
34 | ||
35 | (in-package 'system) | (in-package 'system) |
36 | ||
37 | (eval-when (compile) | ;(eval-when (compile) |
38 | (proclaim '(optimize (safety 0) (space 3))) | ; (proclaim '(optimize (safety 0) (space 3))) |
39 | ) | ; ) |
40 | ||
41 | (defun key-list (key test test-not &aux (tem nil)) | (defun key-list (key test test-not &aux (tem nil)) |
42 | (when key (push :key tem) (push key tem)) | (when key (push :key tem) (push key tem)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |