/[gcl]/gcl/lsp/gcl_listlib.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_listlib.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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