[Gcl-devel] Re: documentation

[Camm Maguire]

Greetings!

1) Cannot reproduce, but perhaps fixed in the latest commit today.
2) documentation nil bug removed
3) possibly cleared Matt's unused variable bug, but have not tested to
be sure.
4) Several functions missing signatures lead to * return type
declarations -- am clearing some of these:

(compile 'fdefinition)

;; Compiling /tmp/gazonk_18699_0.lsp.
;; End of Pass 1.  
;; End of Pass 2.  
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
(Debug quality ignored)
;; Finished compiling /tmp/gazonk_18699_0.o.
Loading /tmp/gazonk_18699_0.o
Callee FDEFINITION sigchange NIL to ((T) T), recompiling 
PCL::UNENCAPSULATED-FDEFINITION
;; Compiling /tmp/recompile.lsp.
;; End of Pass 1.  
;; End of Pass 2.  
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
(Debug quality ignored)
;; Finished compiling /tmp/recompile.o.
Loading /tmp/recompile.o
start address -T 0x8e54f68 Finished loading /tmp/recompile.o
Callee PCL::UNENCAPSULATED-FDEFINITION sigchange ((T) *) to ((T) T), 
recompiling PCL::GDEFINITION
Callee PCL::UNENCAPSULATED-FDEFINITION sigchange ((T) *) to ((T) T), 
recompiling PCL::MAYBE-EXPAND-ACCESSOR-FORM
;; Compiling /tmp/recompile.lsp.
;; End of Pass 1.  
;; End of Pass 2.  
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
(Debug quality ignored)
;; Finished compiling /tmp/recompile.o.
Loading /tmp/recompile.o
start address -T 0x8e4b020 Finished loading /tmp/recompile.o
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::COMPUTE-PV-SLOT
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::CHECK-INITARGS-VALUES
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::GET-MAKE-INSTANCE-FUNCTION
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::GET-MAKE-INSTANCE-FUNCTION-INTERNAL
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::COMPUTE-APPLICABLE-METHODS-EMF
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::FIX-EARLY-GENERIC-FUNCTIONS
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::PARSE-METHOD-OR-SPEC
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::GENERIC-FUNCTION-NAME-P
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::SHOW-DFUN-COSTS
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::CALL-NO-NEXT-METHOD
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL:ENSURE-GENERIC-FUNCTION
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::|(FAST-METHOD SHARED-INITIALIZE :AFTER (STRUCTURE-CLASS T))|
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::METHOD-PROTOTYPE-FOR-GF
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::PROTOTYPES-FOR-MAKE-METHOD-LAMBDA
Callee PCL::GDEFINITION sigchange ((T) *) to ((T) T), recompiling 
PCL::|(FAST-METHOD INITIALIZE-INTERNAL-SLOT-FUNCTIONS 
(EFFECTIVE-SLOT-DEFINITION))|
;; Compiling /tmp/recompile.lsp.
;; End of Pass 1.  
;; End of Pass 2.  
;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
(Debug quality ignored)
;; Finished compiling /tmp/recompile.o.
Loading /tmp/recompile.o
start address -T 0x8f03200 Finished loading /tmp/recompile.o
start address -T 0x8e41820 Finished loading /tmp/gazonk_18699_0.o
#<compiled-function FDEFINITION>
NIL
NIL

(let (r) (maphash (lambda (x y) (unless (call-sig y) (when (member
(symbol-package x) (mapcar 'find-package '(si compiler lisp))) (push x
r)))) *call-hash-table*) r)

'(LISP::TEMP-DIR LISP::NEW-ED COMPILER::NEXT-CFUN COMPILER::NEXT-CVAR
    COMPILER::NEXT-CMACRO COMPILER::BASE-USED HELP HELP*
    COMPILER::C1NIL COMPILER::C1T CAR CDR GETF GETHASH SCHAR
    COMPILER::COPY-BLK COMPILER::GET-PACKAGES
    COMPILER::MAKE-ALL-PROCLAIMS INIT-CMP-ANON
    SET-COMPILED-FUNCTION-NAME IF-ERROR CATCH-FATAL SET-MV MV-REF
    READ-FASD-TOP WRITE-FASD-TOP OPEN-FASD CLOSE-FASD LAMBDA
    FIND-SHARING-TOP CONS LIST STRING PATHNAME CHARACTER ASSERT FLOAT
    CHAR CCASE CHECK-TYPE CTYPECASE DECLAIM DEFCONSTANT
    DEFINE-MODIFY-MACRO DEFINE-SETF-EXPANDER DEFINE-SETF-METHOD
    DEFPARAMETER DEFSETF COMPLEX DEFSTRUCT DEFTYPE DEFVAR
    DO-ALL-SYMBOLS DO-EXTERNAL-SYMBOLS DO-SYMBOLS ECASE VALUES MOD *
    PLUSP DT-APPLY CHECK-TYPE-EVAL BACKTRACE FDEFINTION
    USER-HOMEDIR-PATHNAME DIRECTORY MKDIR GET-INTERNAL-RUN-TIME
    EVALHOOK MACROEXPAND-1 SYMBOL-FUNCTION FBOUNDP SYMBOL-VALUE BOUNDP
    MACRO-FUNCTION SPECIAL-FORM-P SPECIAL-OPERATOR-P VALUES-LIST LOOP
    *MAKE-SPECIAL ARGC ARGV GETENV RESET-STACK-LIMITS ADDRESS
    CLEAR-INPUT COPY-READTABLE SET-MACRO-CHARACTER GET-MACRO-CHARACTER
    SET-DISPATCH-MACRO-CHARACTER GET-DISPATCH-MACRO-CHARACTER
    STANDARD-READTABLE ELT-SET SUBSEQ COPY-SEQ NREVERSE MAKE-STRUCTURE
    MAKE-S-DATA-STRUCTURE STRUCTURE-DEF STRUCTURE-REF1 SIZE-OF
    ALIGNMENT STRUCTURE-SUBTYPE-P AET-TYPE CHAR-SET STRING=
    STRING-EQUAL STRING< STRING<= STRING-LESSP MAKE-STRING
    STRING-LEFT-TRIM STRING-RIGHT-TRIM STRING-DOWNCASE
    STRING-CONCATENATE REMPROP SYMBOL-PLIST SYMBOL-NAME MAKE-SYMBOL
    GENSYM SYMBOL-PACKAGE FORMATTER PUT-F PRINT-UNREADABLE-OBJECT
    WITH-COMPILATION-UNIT PUTPROP SPUTPROP TYPE-OF-C MAKE-HASH-TABLE
    REMHASH CLRHASH HASH-TABLE-COUNT HASH-EQUAL COMPILER::READ-BYTE1
    HASH-SET TRUENAME PROBE-FILE DEFINE-COMPILER-MACRO MAKE-NTP NTP-DEF
    NTP-UKN NTP-TPS NTP-LD RANGE-NUM ELCOMP LPOSITION-IF LPOSITION-EQ
    LDELETE-IF LREMOVE-IF LREMOVE-IF-NOT MAYBE-EVAL NEGATE DO-LIST1-X
    PUT-AUX F BUTLAST NBUTLAST LDIFF RPLACD SUBST NSUBLIS MEMBER1
    ADJOIN DELETE-PACKAGE IN-PACKAGE FIND-PACKAGE PACKAGE-NAME
    PACKAGE-NICKNAMES PACKAGE-USE-LIST PACKAGE-USED-BY-LIST
    PACKAGE-SHADOWING-SYMBOLS LIST-ALL-PACKAGES INTERN FIND-SYMBOL
    UNINTERN SHADOWING-IMPORT USE-PACKAGE UNUSE-PACKAGE PACKAGE-SIZE
    PACKAGE-INTERNAL PACKAGE-EXTERNAL PARSE-NAMESTRING MERGE-PATHNAMES
    MAKE-PATHNAME PATHNAME-HOST PATHNAME-DEVICE PATHNAME-DIRECTORY
    PATHNAME-NAME PATHNAME-TYPE PATHNAME-VERSION NAMESTRING
    TRANSLATE-LOGICAL-PATHNAME SEARCH-LOCAL-PATHNAME PATHNAME-LOOKUP
    SET-PATHNAME-LOOKUP WRITE PRIN1 PRINT WRITE-CHAR WRITE-STRING
    FRESH-LINE FINISH-OUTPUT FORCE-OUTPUT GET-PPRINT-DISPATCH READ
    READ-PRESERVING-WHITESPACE COMPILER::WT-NL COMPILER::WT-NL1
    READ-LINE READ-CHAR UNREAD-CHAR PEEK-CHAR COMPILER::NEXT-LABEL
    COMPILER::NEXT-LABEL* COMPILER::WT-LABEL COMPILER::WT-GO CHAR-EQUAL
    COMPILER::DOWNWARD-FUNCTION CHAR-CODE CHAR-BITS CHAR-FONT CODE-CHAR
    CHAR-UPCASE CHAR-DOWNCASE COMPILER::RECORD-ARG-INFO
    COMPILER::DM-BAD-KEY MAKE-BROADCAST-STREAM MAKE-TWO-WAY-STREAM
    MAKE-ECHO-STREAM MAKE-STRING-INPUT-STREAM MAKE-STRING-OUTPUT-STREAM
    GET-OUTPUT-STREAM-STRING COMPILER::CK-SPEC COMPILER::CK-VL FWRITE
    FREAD COMPILER::MAYBE-WT-C2DM-BIND-VL STREAM-ELEMENT-TYPE
    SWITCH-FINISH CLOSE FILE-POSITION FILE-LENGTH COMPILER::COPY-TAG
    GET-STRING-INPUT-STREAM-INDEX COPY-STREAM CAAR CADR CDAR CDDR CAADR
    CADAR COMPILER::STACK-LET CADDR CDADR CDDAR CDDDR CAADDR CADADR
    CADDAR CADDDR CDADDR CDDADR CDDDDR LIST-LENGTH REST MAKE-LIST
    WITH-HASH-TABLE-ITERATOR WITH-PACKAGE-ITERATOR DESTRUCTURING-BIND
    NTH-VALUE COMPILER::CLEAR-CALL-TABLE COMPILER::DUMP-FN-DATA
    OFFER-CHOICES PRINT-NODE TKCONNECT NODE COMPILER::EMIT-FN
    COMPILER::INIT-FN MONSTARTUP SET-UP-PROFILE
    COMPILER::WITH-RESTORE-VARS INIT-READLINE COMPILER::SUBLIS1
    BACKGROUND WITH-READ-VALUES MEMQ P-LET P-AND P-OR
    COMPILER::EQ-SUBTP COMPILER::ONE-INT-TP COMPILER::CMPILER-ERROR
    LOGIOR LOGXOR LOGAND BOOLE LOGBITP ASH INTEGER-LENGTH BIT-ARRAY-OP
    COMPILER::COPY-FASD EXP EXPT LOG SQRT SIN COS ATAN RANDOM
    MAKE-RANDOM-STATE COMPILER::WT-H ROOM-REPORT HEAP-REPORT GBC-TIME
    SYSTEM UPPER-CASE-P LOWER-CASE-P BOTH-CASE-P DIGIT-CHAR-P
    ALPHANUMERICP CHAR= CHAR/= COMPILER::READ-CHAR1 COMPILER::SFEOF
    COMPILER::SGETC1 COMPILER::FP-OKP COMPILER::SPUTC
    INSPECT-RECURSIVELY INSPECT-PRINT
    COMPILER::SETF-FUNCTION-PROXY-SYMBOL
    COMPILER::SETF-FUNCTION-BASE-SYMBOL COMPILER::NDBCTXT
    COMPILER::COPY-VAR COMPILER::BIGNUM-EXPANSION-STORAGE
    WITH-CLCS-BREAK-LEVEL-BINDINGS WINFO ZEROP MINUSP EVENP = < > <= >=
    MAX MIN + - / ASINCOS COERCE-TO-PACKAGE COMPILER::TYPE-FILTER
    COMPILER::SFL COMPILER::BOUND COMPILER::BOUNDPTR NUMERATOR TENTH
    DENOMINATOR THIRD FLOOR TIME CEILING TRACE TRUNCATE ROUND TYPECASE
    UNTRACE FLOAT-RADIX WITH-INPUT-FROM-STRING INTEGER-DECODE-FLOAT
    WITH-OPEN-FILE REALPART WITH-OPEN-STREAM IMAGPART
    WITH-OUTPUT-TO-STRING WITH-STANDARD-IO-SYNTAX CLINES DEFCFUN
    DEFENTRY DEFLA CLOSEDP STREAM-NAME COPY-CALL MAKE-CALL FB MV-SETQ
    MV-VALUES COPY-INSTREAM ED EIGHTH ETYPECASE FIFTH FIRST FOURTH
    GET-DECODED-TIME FOO LISP-IMPLEMENTATION-TYPE LONG-SITE-NAME
    MACHINE-INSTANCE MACHINE-TYPE MACHINE-VERSION NINTH PSETF PUSHNEW
    RATIONALIZE REMF ROTATEF SECOND SEVENTH
    COMPILER::SEQ-COMPILER-MACRO SHIFTF COMPILER::NOTANY-COMPILER-MACRO
    SHORT-SITE-NAME COMPILER::EVERY-COMPILER-MACRO
    COMPILER::MAP-INTO-COMPILER-MACRO COMPILER::REDUCE-COMPILER-MACRO
    SIXTH SOFTWARE-TYPE SOFTWARE-VERSION STEP SWITCH
    COMPILER::CAN-ALLOCATE-ON-STACK COMPILER::WT-BV-SHIFT
    COMPILER::CMPERROR COMPILER::VL-NAME COMPILER::ITP COMPILER::VLP
    COMPILER::TPPR COMPILER::REDUCE-LAMBDA COMPILER::POP-RESTORE-VARS
    COMPILER::ADD-MACRO-CALLEE COMPILER::SAFE-COMPILE COMPILER::CMPCK
    COMPILER::MAYBE-TO-WN-STACK COMPILER::DOLIST* COMPILER::COPY-FUN
    COMPILER::DOLIST** COMPILER::DOTIMES* COMPILER::DOTIMES**
    COMPILER::RECORD-CALL-INFO COMPILER::OLD-COPY-INFO
    DEFINE-INLINE-FUNCTION COMPILER::FLAG-P COMPILER::FLAGS
    COMPILER::LET-WRAP COMPILER::IS-SETF-FUNCTION COMPILER::MIA
    COMPILER::EQL-NOT-NIL COMPILER::WITH-VAR-FORM-TYPE
    COMPILER::WITH-PULLED-ARRAY COMPILER::DO-REFERRED
    COMPILER::DO-CHANGED COMPILER::IS-REFERRED COMPILER::IS-CHANGED
    COMPILER::MEMBER-COMPILER-MACRO COMPILER::PUSH-REFERRED
    COMPILER::INTERSECTION-COMPILER-MACRO COMPILER::PUSH-CHANGED
    COMPILER::SET-EXCLUSIVE-OR-COMPILER-MACRO
    COMPILER::PUSH-REFERRED-WITH-START COMPILER::MAPCAR-COMPILER-MACRO
    COMPILER::PUSH-CHANGED-WITH-START COMPILER::INLINABLE-FN
    COMPILER::CHANGED-LENGTH COMPILER::REFERRED-LENGTH KEY-NAME CIRCLEP
    RECORD-FN PPRINT-LOGICAL-BLOCK COMPILER::DO-ARRAY
    COMPILER::IN-ARRAY MAYBE-ADD-KEYDEF COPY-S-DATA COMPILER::WT
    COMPILER::WT-BV-INDEX LISP::EVAL-FEATURE COMPILER::CMP-AREF
    COMPILER::CMP-ASET COMPILER::CMP-ARRAY-DIMENSION
    LISP::SHARP-+-READER LISP::SHARP---READER LIST* APPEND)

5) Committed the following:

        "Fix typing bug in c1flet/c1labels,
        make (values form) an efficient return,
        portable code turns &aux into let* to make the lambda
        funcallable (in preparation for automatic state/mutual
        recursion conversion),
        speed up proper-list type-or, 
        give fdefinition a lisp definition to set up the prototype (removes a 
number of * returns)"

Doing this quickly -- more later.

Take care,

Robert Boyer <address@hidden> writes:

> I assume you are aware of this problem with documentation.
> 
> Bob
> 
> % /v/filer3/v0q027/gcl-2.7.0/bin/gcl
> GCL (GNU Common Lisp)  2.7.0 CLtL1    Jun  9 2006 13:29:19
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (READLINE BFD 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/
> 
> >(documentation 'foo 'variable)
> 
> Correctable error: A package error occurred on FOO: "A package with this name 
> does not exist".
> Signalled by DOCUMENTATION.
> If continued: 
> Broken at SYSTEM:UNIVERSAL-ERROR-HANDLER.  Type :H for Help.
> >>:q
> 
> Top level.
> >(documentation 'cons 'function)
> 
> Correctable error: A package error occurred on CONS: "A package with this 
> name does not exist".
> Signalled by DOCUMENTATION.
> If continued: 
> Broken at SYSTEM:UNIVERSAL-ERROR-HANDLER.  Type :H for Help.
> >>
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah