[ clisp-Bugs-1282492 ] write function don't binds all print-variables

[SourceForge.net <no...@so...>]

Bugs item #1282492, was opened at 2005-09-05 15:43
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=1282492&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
Submitted By: Sergey Pavlov (leeaaa)
Assigned to: Sam Steingold (sds)
Summary: write function don't binds all print-variables

Initial Comment:
I think following code should unbind *print-length* 
after exiting from "write" and print 10, but actually 
CLISP prints 50.
I have tested it with LispWorks - that implementation 
binds/unbinds all *print-* vars to their value if key 
argument absent. That logic better, because it 
protects vars from changes inside a custom print-
object functions



(defclass c () (f))

(defmethod print-object ((x c) s)
  (setq *print-length* 50) (print "print-object"))
  
(progn 
  (setq *print-length* 10)
  (write (make-instance 'c)  )
  (print *print-length*)
)



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

>Comment By: Sam Steingold (sds)
Date: 2005-09-05 17:02

Message:
Logged In: YES 
user_id=5735

I do not see a requirement that the non-supplied keyword
parameters effect a binding:

http://www.lisp.org/HyperSpec/Body/fun_writecm_p_rintcm_princ.html
For each explicitly supplied keyword parameter named in the
next figure, the corresponding printer control variable is
dynamically bound to its value while printing goes on; for
each keyword parameter in the next figure that is not
explicitly supplied, the value of the corresponding printer
control variable is the same as it was at the time write was
invoked.

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

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