Custom Query (1030 matches)

? (defun foo () (eql))
;Compiler warnings :
;   In FOO: In the call to EQL with arguments (),
;     0 arguments were provided, but at least 2 are required
;     by the current global definition of EQL
? (foo)
T
?

Minor, but it would be nice to get a runtime error, in case you miss the compile-time warnings for whatever reason.

? (decode-universal-time
    (encode-universal-time 10 10 10 1 1 2000 1787/360) 1787/360)
0
61/6
10
1
1
2000
5
NIL
1787/360

The first two values are wrong.

? (let (a b) (setf (values (values a b)) (values 1 2)) (list a b))
(1 2)
? 

Should return (1 nil), by my reading of ​http://www.lispworks.com/documentation/HyperSpec/Body/05_abc.htm.