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

 
 

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

Submitter:  None
Submitted:  Sat 29 Jun 2013 11:33:43 PM UTC
   
 
Category:  None Severity:  3 - Normal
Item Group:  None Status:  Invalid
Privacy:  Public Assigned to:  None
Open/Closed:  Closed
* Mandatory Fields

Add a New Comment Rich Markup
   

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>
Group 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 Files:
   
   
Comment:
   

No files currently attached

 

Depends on the following items: None found

Items that depend on this one: None found

 

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

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 2 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2013-11-19 camm StatusNone Invalid
        Open/ClosedOpen Closed

    Back to the top

    Powered by Savane 3.13-f8d8.
    Corresponding source code