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) |
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)))) |