projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.3.1:
[sbcl.git]
/
src
/
code
/
debug.lisp
diff --git
a/src/code/debug.lisp
b/src/code/debug.lisp
index
237583f
..
4943a51
100644
(file)
--- a/
src/code/debug.lisp
+++ b/
src/code/debug.lisp
@@
-492,12
+492,11
@@
Function and macro commands:
) ; EVAL-WHEN
;;; This is used in constructing arg lists for debugger printing when
) ; EVAL-WHEN
;;; This is used in constructing arg lists for debugger printing when
-;;; the arg list is unavailable, some arg is unavailable or unused,
-;;; etc.
+;;; the arg list is unavailable, some arg is unavailable or unused, etc.
(defstruct (unprintable-object
(:constructor make-unprintable-object (string))
(:print-object (lambda (x s)
(defstruct (unprintable-object
(:constructor make-unprintable-object (string))
(:print-object (lambda (x s)
- (print-unreadable-object (x s :type t)
+ (print-unreadable-object (x s)
(write-string (unprintable-object-string x)
s))))
(:copier nil))
(write-string (unprintable-object-string x)
s))))
(:copier nil))