projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.22.7: Update to ASDF 1.130
[sbcl.git]
/
tests
/
backq.impure.lisp
diff --git
a/tests/backq.impure.lisp
b/tests/backq.impure.lisp
index
ffdeb93
..
6a64703
100644
(file)
--- a/
tests/backq.impure.lisp
+++ b/
tests/backq.impure.lisp
@@
-6,13
+6,13
@@
;;;; While most of SBCL is derived from the CMU CL system, the test
;;;; files (like this one) were written from scratch after the fork
;;;; from CMU CL.
;;;; While most of SBCL is derived from the CMU CL system, the test
;;;; files (like this one) were written from scratch after the fork
;;;; from CMU CL.
-;;;;
+;;;;
;;;; This software is in the public domain and is provided with
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
(in-package "CL-USER")
;;;; This software is in the public domain and is provided with
;;;; absolutely no warranty. See the COPYING and CREDITS files for
;;;; more information.
(in-package "CL-USER")
-
+
(defparameter *qq* '(*rr* *ss*))
(defparameter *rr* '(3 5))
(defparameter *ss* '(4 6))
(defparameter *qq* '(*rr* *ss*))
(defparameter *rr* '(3 5))
(defparameter *ss* '(4 6))
@@
-33,7
+33,7
@@
value))
(format t "Ok. Look at PPRINTed version: ")
(pprint (read-from-string expression)))
value))
(format t "Ok. Look at PPRINTed version: ")
(pprint (read-from-string expression)))
-
+
(defparameter *backquote-tests*
'(("``(,,*QQ*)" . (24))
("``(,@,*QQ*)" . 24)
(defparameter *backquote-tests*
'(("``(,,*QQ*)" . (24))
("``(,@,*QQ*)" . 24)
@@
-52,11
+52,15
@@
("``(,@,@*QQ*)" . (3 5 4 6))))
(mapc (lambda (test)
("``(,@,@*QQ*)" . (3 5 4 6))))
(mapc (lambda (test)
- (test-double-backquote (car test) (cdr test)))
+ (test-double-backquote (car test) (cdr test)))
*backquote-tests*)
(let ((string "`(foobar a b ,c ,'(e f g) d ,@'(e f g) (h i j) ,@foo)"))
(assert (equal (print (read-from-string string)) (read-from-string string))))
*backquote-tests*)
(let ((string "`(foobar a b ,c ,'(e f g) d ,@'(e f g) (h i j) ,@foo)"))
(assert (equal (print (read-from-string string)) (read-from-string string))))
-;;; success
-(quit :unix-status 104)
+(let ((a '`(1 ,@a ,@b ,.c ,.d)))
+ (let ((*print-circle* t))
+ (assert (equal (read-from-string (write-to-string a)) a))))
+
+(let ((s '``(,,@(list 1 2 3) 10)))
+ (assert (equal (eval (eval s)) '(1 2 3 10))))