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

Diff of /gcl/lsp/mislib.lsp

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

revision 1.3 by camm, Sat Sep 28 13:43:00 2002 UTC revision 1.4 by camm, Thu Oct 10 02:51:59 2002 UTC
# Line 25  Line 25 
25    
26  (export 'time)  (export 'time)
27  (export 'nth-value)  (export 'nth-value)
28  (export '(decode-universal-time encode-universal-time compile-file-pathname))  (export '(decode-universal-time encode-universal-time compile-file-pathname complement constantly))
29    
30    
31  (in-package 'system)  (in-package 'system)
# Line 107  Line 107 
107    `(nth ,n (multiple-value-list ,expr)))    `(nth ,n (multiple-value-list ,expr)))
108  (defun compile-file-pathname (pathname)  (defun compile-file-pathname (pathname)
109  (make-pathname :defaults pathname :type "o"))  (make-pathname :defaults pathname :type "o"))
110    (defun constantly (x)
111    #'(lambda (&rest args)
112    (declare (ignore args) (dynamic-extent args))
113    x))
114    (defun complement (fn)
115    #'(lambda (&rest args) (not (apply fn args))))

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

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