[Openmcl-devel] difference between CCL and COMMON-LISP packages

[Rainer Joswig]

CL and COMMON-LISP are names for the same package.

CCL is a different package.

? (describe (find-package "CCL"))
#<Package "CCL">
Type: PACKAGE
Class: #<BUILT-IN-CLASS PACKAGE>
Internal Symbols: 15766
External Symbols: 592
PKG.ITAB: (#(CCL::FFI-ARG-TYPE CCL::$FBITEMBEDDEDLAP CCL::LOCAL-BLOCK
              CCL::*NX-IGNORE-IF-UNUSED* CCL::FLAGS-SANS-WEAK
              CCL::*EQL-SPECIALIZER-CLASS* CCL::PPRINT-TAB-NOT-PRETTY 0
              CCL::PARENT CCL::CLEANUP-LAB CCL::STREAM-SURROUNDING- 
CHARACTERS
              CCL::FFI-UNION-P CCL::OP3-FUN CCL::OUT-LOCK CCL::ERR-NUM
              CCL::%STAT-VALUES CCL::VECT-SUBTYPE CCL::PRIMARY-OWNER- 
NOTIFY 0
              CCL::%COPY-DOUBLE-FLOAT ...)
            16265 . 17363)
PKG.ETAB: (#(ADVISE *BREAK-LOOP-WHEN-UNINTERRUPTABLE* WITH-INTERRUPTS- 
ENABLED
              STREAM-READ-LINE 0 0 0 0 CANCEL 0 APPLYHOOK *LISTENER- 
INDENT*
              GET-SETF-METHOD-MULTIPLE-VALUE PROCESS-SUSPEND-COUNT 0 0 0
              *.LISP-PATHNAME* WITH-TERMINAL-INPUT METHOD-LAMBDA- 
LIST ...)
            592 . 673)
PKG.USED: (#<Package "COMMON-LISP">)
PKG.USED-BY: (#<Package "GUI"> #<Package "COMMON-LISP-USER">
               #<Package "INSPECTOR">)
PKG.NAMES: ("CCL")
PKG.SHADOWED: NIL
PKG.LOCK: #<READ-WRITE-LOCK [ptr @ #x107B80] #x3000400EB1CD>
PKG.INTERN-HOOK: NIL



? (describe (find-package "CL"))
#<Package "COMMON-LISP">
Type: PACKAGE
Class: #<BUILT-IN-CLASS PACKAGE>
Internal Symbols: 0
External Symbols: 978
PKG.ITAB: (#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...) 0 . 36)
PKG.ETAB: (#(DEFSETF NUMBER 0 &REST ABORT SUBSTITUTE *PRINT-LENGTH*  
DEFVAR
              ECHO-STREAM-INPUT-STREAM PROGV *READ-DEFAULT-FLOAT- 
FORMAT* GETHASH
              STRUCTURE-CLASS UNBOUND-SLOT COMPILER-MACRO SUBSTITUTE- 
IF COERCE
              STRING-TRIM BIT-ORC2 0 ...)
            978 . 1009)
PKG.USED: NIL
PKG.USED-BY: (#<Package "EASYGUI-USER"> #<Package "EASYGUI-DEMO">
               #<Package "EASYGUI"> #<Package "EASYGUI-SYSTEM">
               #<Package "ASDF"> #<Package "HEMLOCK"> #<Package "HI">
               #<Package "GUI"> #<Package "COMMON-LISP-USER">
               #<Package "ANSI-LOOP"> #<Package "INSPECTOR"> #<Package  
"X8664">
               #<Package "ARCH"> #<Package "X86"> #<Package "X8632">
               #<Package "OPENMCL-SOCKET"> #<Package "X86-DARWIN64">
               #<Package "CCL">)
PKG.NAMES: ("COMMON-LISP" "CL")
PKG.SHADOWED: NIL
PKG.LOCK: #<READ-WRITE-LOCK [ptr @ #x107C00] #x3000400EB24D>
PKG.INTERN-HOOK: NIL



Am 08.06.2009 um 16:19 schrieb Stas Boukarev:

> Taoufik Dachraoui <taoufik.dachraoui at wanadoo.fr> writes:
>
>> Hi
>>
>> What is the diff webtween CCL and COMMON-LISP packages; they have the
>> exact same symbols.
>>
> No, they're not:
> (loop for symbol being the symbol in :ccl count 1) => 16641
> (loop for symbol being the symbol in :cl count 1) => 978
>
> COMMON-LISP package is defined by the standard and exports exactly
> defined set of symbols. CCL is an internal package specific to  
> Clozure CL.
>
> -- 
> With best regards, Stas.
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel

Rainer Joswig, Hamburg, Germany
http://lispm.dyndns.org/
mailto:joswig at lisp.de