What I do:
(progn (write '''(''''foo) :level 1 :pretty t)
(values))
What happens:
Output:
''(''''FOO)
What I expected to happen:
Output:
'#
Note that the following behaves correctly, so this is really a pretty-printer problem:
(progn (write '''(''''foo) :level 1 :pretty nil)
(values))
Output:
(QUOTE #)
SBCL version: 1.0.42
uname -a: Linux dynamorph 2.6.32-30-generic #59-Ubuntu SMP Tue Mar 1 21:30:21 UTC 2011 i686 GNU/Linux
What I do:
(progn (write '''(''''foo) :level 1 :pretty t)
(values))
What happens:
Output:
''(''''FOO)
What I expected to happen:
Output:
'#
Note that the following behaves correctly, so this is really a pretty-printer problem:
(progn (write '''(''''foo) :level 1 :pretty nil)
(values))
Output:
(QUOTE #)
SBCL version: 1.0.42
uname -a: Linux dynamorph 2.6.32-30-generic #59-Ubuntu SMP Tue Mar 1 21:30:21 UTC 2011 i686 GNU/Linux
*features*: SOCKETS- ADDRINFO :ASDF-UNIX :ASDF2 :ASDF :ANSI-CL LOCATIONS :IEEE-FLOATING- POINT :X86 :UNIX :ELF :LINUX GROWS-DOWNWARD- NOT-UPWARD IS-CONTROL- STACK :COMPARE- AND-SWAP- VOPS :UNWIND- TO-FRAME- AND-CALL- VOP INIT-VOPS :STACK- ALLOCATABLE- CLOSURES :STACK- ALLOCATABLE- VECTORS ALLOCATABLE- LISTS :STACK- ALLOCATABLE- FIXED-OBJECTS :ALIEN-CALLBACKS BARRIER- VOPS :LINKAGE-TABLE DLOPEN :OS-PROVIDES-PUTWC :OS-PROVIDES- SUSECONDS- T)
(:SWANK :QUICKLISP :SB-BSD-
:COMMON-LISP :SBCL :SB-DOC :SB-TEST :SB-LDB :SB-PACKAGE-LOCKS :SB-UNICODE
:SB-EVAL :SB-SOURCE-
:SB-THREAD :LARGEFILE :GENCGC :STACK-
:C-STACK-
:RAW-INSTANCE-
:STACK-
:CYCLE-COUNTER :INLINE-CONSTANTS :MEMORY-
:OS-PROVIDES-