[ clisp-Bugs-3417358 ] 22.1.3.5 conformance

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Bugs item #3417358, was opened at 2011-10-03 01:45
Message generated for change (Tracker Item Submitted) made by informatimago
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3417358&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Pascal J. Bourguignon (informatimago)
Assigned to: Bruno Haible (haible)
Summary: 22.1.3.5 conformance

Initial Comment:
As per 22.1.3.5, 

    (write (quote (john (quote s) weight)) :pretty nil :readably nil)

should print

    (JOHN (QUOTE S) WEIGHT)

but instead it prints:

    (JOHN 'S WEIGHT)

[and similarly for :readtably t, it prints:

   (|COMMON-LISP-USER|::|JOHN| '|COMMON-LISP-USER|::|S| |COMMON-LISP-USER|::|WEIGHT|)
instead of:

   (|COMMON-LISP-USER|::|JOHN| (|CL|:|QUOTE| |COMMON-LISP-USER|::|S|) |COMMON-LISP-USER|::|WEIGHT|)
]

========================================================================
Implementation: CLISP 2.49 (2010-07-07) (built 3499302370) (memory 3499302538) on X86_64

Reading of: "(write (quote (john (quote s) weight)) :pretty nil :readably nil)"
signaled no error

Evaluation of: (WRITE '(JOHN 'S WEIGHT) :PRETTY NIL :READABLY NIL)
signaled no error
wrote nothing on *ERROR-OUTPUT*
wrote the following *STANDARD-OUTPUT* (lines excluded):
------------------------------------------------------------------------
(JOHN 'S WEIGHT)
------------------------------------------------------------------------
returned the following value:
--> (JOHN 'S WEIGHT)

========================================================================

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3417358&group_id=1355