8 lines
235 B
Plaintext
8 lines
235 B
Plaintext
;;; Regression test for AR 8465: (SHIFTF (CAR L) 0) COMPLAINS: "Attempt to bind a non-symbol: 0"
|
|
|
|
(do-test "AR 8465"
|
|
(let ((il:*exec-make-undoable-p* t) (l (list 1 2 3)))
|
|
(and (eql (shiftf (car l) 0) 1) (equal l '(0 2 3)))
|
|
)
|
|
)
|