projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix sleep on ratios, avoiding consing.
[sbcl.git]
/
tests
/
pprint.impure.lisp
diff --git
a/tests/pprint.impure.lisp
b/tests/pprint.impure.lisp
index
4e6d8a3
..
39884e0
100644
(file)
--- a/
tests/pprint.impure.lisp
+++ b/
tests/pprint.impure.lisp
@@
-291,5
+291,11
@@
(when errors
(error "Can't PPRINT imporper lists: ~a" errors))))
(when errors
(error "Can't PPRINT imporper lists: ~a" errors))))
+(with-test (:name :pprint-circular-backq-comma)
+ ;; LP 1161218 reported by James M. Lawrence
+ (let ((string (write-to-string '(let ((#1=#:var '(99)))
+ `(progn ,@(identity #1#)))
+ :circle t :pretty t)))
+ (assert (not (search "#2#" string)))))
\f
;;; success
\f
;;; success