bugGNU Common Lisp - Bugs: bug #39367, defpackage :use...

 
 

bug #39367: defpackage :use "COMMON-LISP" breaks.

Submitted by:  None
Submitted on:  Sat 29 Jun 2013 11:33:43 PM UTC  
 
Category: NoneSeverity: 3 - Normal
Item Group: NoneStatus: Invalid
Privacy: PublicAssigned to: None
Open/Closed: Closed

Add a New Comment (Rich MarkupRich Markup):
   

You are not logged in

Please log in, so followups can be emailed to you.

 

Tue 19 Nov 2013 02:49:43 PM UTC, comment #1:

Greetings, and thanks for your report! You need to use the ansi build. If instaslling a Debian/Ubuntu package, do GCL_ANSI=t gcl. If building from source, add --enable-ansi to the configure line. Your image will reflect its ClTl1 or ANSI status in the header.

Camm Maguire <camm>
Project Administrator
Sat 29 Jun 2013 11:33:43 PM UTC, original submission:

It's funny. gcl, the GNU Common Lisp doesn't have a COMMON-LISP package.

[pjb@kuiper :0.0 lisp]$ gcl --norc
GCL (GNU Common Lisp) 2.6.7 CLtL1 Jan 21 2013 23:12:47
Source License: LGPL(gcl,gmp), GPL(unexec,bfd,xgcl)
Binary License: GPL due to GPL'ed components: (XGCL READLINE UNEXEC)
Modifications of this banner must retain notice of a compatible license
Dedicated to the memory of W. Schelter

Use (help) to get some basic information on how to use GCL.
Temporary directory for compiler files set to /tmp/

>(defpackage "COM.INFORMATIMAGO.CLALL"

(:use "COMMON-LISP")
(:nicknames "CLALL"))

Error: "COMMON-LISP" is not of type (LISP:OR LISP:SYMBOL LISP:STRING ...).
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by LISP:USE-PACKAGE.
Broken at LISP:USE-PACKAGE. Type :H for Help.
COM.INFORMATIMAGO.CLALL>>:q

Top level.

> (macroexpand-1 '(defpackage "COM.INFORMATIMAGO.CLALL"

(:use "COMMON-LISP")
(:nicknames "CLALL")))

(EVAL-WHEN (LOAD EVAL COMPILE)
(IF (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL")
(PROGN
(RENAME-PACKAGE "COM.INFORMATIMAGO.CLALL"
"COM.INFORMATIMAGO.CLALL")
(RENAME-PACKAGE "COM.INFORMATIMAGO.CLALL"
"COM.INFORMATIMAGO.CLALL" '("CLALL"))
(UNUSE-PACKAGE
(PACKAGE-USE-LIST (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL"))
"COM.INFORMATIMAGO.CLALL"))
(MAKE-PACKAGE "COM.INFORMATIMAGO.CLALL" ':USE 'NIL ':NICKNAMES
'("CLALL")))
(SETF (GET ':COM.INFORMATIMAGO.CLALL 'SYSTEM::PACKAGE-DOCUMENTATION)
NIL)
(LET ((PACKAGE (FIND-PACKAGE "COM.INFORMATIMAGO.CLALL")))
(USE-PACKAGE '("COMMON-LISP")))
(FIND-PACKAGE "COM.INFORMATIMAGO.CLALL"))
T

>(quit)

[pjb@kuiper :0.0 lisp]$ uname -a
Linux kuiper 3.8.0-19-generic #29-Ubuntu SMP Wed Apr 17 18:16:28 UTC 2013 x86_64 x86_64 x86_64 GNU/Linux
[pjb@kuiper :0.0 lisp]$

Anonymous

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach File(s):
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -unavailable- added by camm (Posted a comment)
  •  

    Do you think this task is very important?
    If so, you can click here to add your encouragement to it.
    This task has 0 encouragements so far.

    Only logged-in users can vote.

     

    Please enter the title of George Orwell's famous dystopian book (it's a date):

     

     

    Follow 2 latest changes.

    Date Changed By Updated Field Previous Value => Replaced By
    Tue 19 Nov 2013 02:49:43 PM UTCcammStatusNone=>Invalid
      Open/ClosedOpen=>Closed

    Back to the top


    Powered by Savane 3.1-cleanup