- (+ (get-unix-time) 2208988800))
-
- ;; The `values-list' primitive cannot be inlined out of functions as
- ;; the VALUES argument is not available there. We declare it
- ;; NOTINLINE to avoid it.
- (declaim (notinline values-list))
- (defun values-list (list)
- (values-list list))
-
- (defun values (&rest args)
- (values-list args)))