[ clisp-Bugs-3432970 ] Case-sensitive structs miscompiled?

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

Bugs item #3432970, was opened at 2011-11-03 13:37
Message generated for change (Tracker Item Submitted) made by mak08
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3432970&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: None
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Michael Kappert (mak08)
Assigned to: Nobody/Anonymous (nobody)
Summary: Case-sensitive structs miscompiled?

Initial Comment:
It seems that keywords are stored incorrectly in the fasl for case-sensitive struct literals:

$ cat struct-case.cl
(defpackage "STORE" (:modern t))
(in-package store)

(defstruct book title author)

(defmacro defbook-expand (title author)
  (make-book :title title :author author))

(defvar *et-book* (defbook-expand  "aTitle" "anAuthor"))
......
cs-user> (compile-file "/home/michael/Projects/scratch/struct-case.cl")
;; Compiling file /home/michael/Projects/scratch/struct-case.cl ...
;; Wrote file /home/michael/Projects/scratch/struct-case.fas
0 errors, 0 warnings
#P"/home/michael/Projects/scratch/struct-case.fas"
nil
nil
cs-user> (load *)
;; Loading file /home/michael/Projects/scratch/struct-case.fas ...
; Evaluation aborted on #<system::simple-keyword-error #x0003348AA920>.
cs-user> 

The struct literal appears in the fasl as
S(|STORE|::|book| :|title| "aTitle" :|author| "anAuthor")


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

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