Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cornell!rochester!rocksanne!news
From: news@rocksanne.UUCP (user)
Newsgroups: comp.lang.lisp
Subject: Re: Bugs in Lucid?
Message-ID: <661@rocksanne.UUCP>
Date: 3 Feb 89 16:19:13 GMT
References: <6150@columbia.edu> <35944@think.UUCP>
Reply-To: mayer@pongo.UUCP (Jim Mayer)
Organization: Xerox Corp., Webster, NY
Lines: 34

Your code works under Sun Common Lisp 3.0 on both Sun3 and Sun4 machines running SunOS 4.0:

> (setq *print-circle* t)
T
> (setq *print-array* t)
T
> (setq a (make-array 100))
#(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NI
L NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NI
L NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NI
L NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NI
L NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NI
L)
> (setq b (make-array 3 :displaced-to a :displaced-index-offset 10))
#(NIL NIL NIL)
> (setq c (make-array 3 :displaced-to a :displaced-index-offset 25))
#(NIL NIL NIL)
> (setq test (list b c))
(#(NIL NIL NIL) #(NIL NIL NIL))
> test
(#(NIL NIL NIL) #(NIL NIL NIL))
>

-- Jim Mayer

Member Research Staff
Systems Sciences Laboratory

Xerox Webster Research Center
800 Phillips Road, 0128-29E
Webster, New York 14580

Phone: (716) 422-9407
EMail: mayer.wbst128@xerox.com (James L Mayer:wbst128:Xerox)