[wfs@CLI.COM: Printer bug]

[Robert S. Boyer <boyer@CLI.COM>]

Date: Tue, 27 Feb 90 11:08:12 CST
From: Bill Schelter <wfs@CLI.COM>
To: boyer@cli.com
Cc: jeff%aiai.edinburgh.ac.uk@NSFnet-Relay.AC.UK, olphie
In-Reply-To: Robert S. Boyer's message of Tue, 27 Feb 90 09:41:32 CST <9002271541.AA01354@CLI.COM>
Subject: Printer bug
Reply-To: wfs@cli.com



To fix the NIL print bug:

At line 758 of print.d change the code to:


               write_ch(':');
                else if (PRINTpackage||find_symbol(x,current_package())!=x
                         || intern_flag == 0)
                  {

The default return of find_symbol was nil, and so the test for `not eq'
was not succeeding.   The value of intern_flag would be 0 however.

Bill


AKCL (Austin Kyoto Common Lisp)  Version(1.466) Tue Feb 27 11:16:41 CST 1990
Contains Enhancements by W. Schelter
Changes in version 1-455 definitely require recompilation of user files.

>(in-package "A" :use nil)
#<"A" package>

A>(lisp::print 'lisp::nil)

LISP:NIL
LISP:NIL

A>