Re: Compiling CLLib

[Sam S. <sd...@gn...>]

> * In message <104...@lo...>
> * On the subject of "Compiling CLLib"
> * Sent on 10 Mar 2003 19:37:54 +0000
> * Honorable Paulo Jorge de Oliveira Cantante de Matos <po...@me...> writes:
>
> I've got Clocc by CVS yesterday and I've just been unable to compile
> cllib. Here's what I did:
> 
> pmatos@localhost clocc $ export LISPTYPE=cmucl
> pmatos@localhost clocc $ nano -w clocc.lisp
> pmatos@localhost clocc $ make clocc-top
> /home/pmatos/projects/sourceforge/clocc/clocc/bin/run-lisp  -c
> clocc.lisp
>  
> Python version 1.0, VM version Intel x86 on 10 MAR 03 06:26:48 pm.
> Compiling: /home/pmatos/projects/sourceforge/clocc/clocc/clocc.lisp 10
> MAR 03
> 06:26:23 pm
>  
>  
> /home/pmatos/projects/sourceforge/clocc/clocc/clocc.x86f written.
> Compilation finished in 0:00:01.
> /home/pmatos/projects/sourceforge/clocc/clocc/bin/run-lisp  -c
> src/defsystem-3.x/defsystem.lisp
>  
> Python version 1.0, VM version Intel x86 on 10 MAR 03 06:26:49 pm.
> Compiling:
> /home/pmatos/projects/sourceforge/clocc/clocc/src/defsystem-3.x/defsystem.lisp 03 FEB 03 06:04:39 am
>  
>  
> Warning: Old-style IN-PACKAGE.
> <snipped a lot of GC>
>  
> File:
> /home/pmatos/projects/sourceforge/clocc/clocc/src/defsystem-3.x/defsystem.lisp
>  
> In: DEFUN SCHEME-COMPILE-FILE
>   '#:INTERACTION-ENVIRONMENT
> Warning: This is not a (VALUES &OPTIONAL BASE-STRING &REST T):
>   #:INTERACTION-ENVIRONMENT
> [GC threshold exceeded with 3,177,656 bytes in use.  Commencing GC.]
> [GC completed with 1,226,336 bytes retained and 1,951,320 bytes freed.]
> [GC will next occur when at least 3,226,336 bytes are in use.]
> [GC threshold exceeded with 3,309,464 bytes in use.  Commencing GC.]
> [GC completed with 1,424,080 bytes retained and 1,885,384 bytes freed.]
> [GC will next occur when at least 3,424,080 bytes are in use.]
> [Last message occurs 2 times]
>  
>  
> In: DEFVAR COMMON-LISP-USER::*LIBRARY*
>   (DEFVAR *LIBRARY*
>     NIL
>     "Directory within the file system containing files, where the name
>      of a file is the same as the name of the module it contains.")
> --> PROGN UNLESS COND IF PROGN
> ==>
>   (SETQ *LIBRARY* NIL)
> Warning: Undefined variable: COMMON-LISP-USER::*LIBRARY*
> [Last message occurs 2 times]
>  
>  
> File:
> /home/pmatos/projects/sourceforge/clocc/clocc/src/defsystem-3.x/defsystem.lisp
>  
> In: DEFVAR COMMON-LISP-USER::*MODULE-FILES*
>   (DEFVAR *MODULE-FILES*
>     (MAKE-HASH-TABLE :TEST #'EQUAL)
>     "Hash table mapping from module names to list of files for the
>      module. REQUIRE loads these files in order.")
> --> PROGN UNLESS COND IF PROGN
> ==>
>   (SETQ *MODULE-FILES* (MAKE-HASH-TABLE :TEST #'EQUAL))
> Warning: Undefined variable: COMMON-LISP-USER::*MODULE-FILES*
> [Last message occurs 2 times]
>  
>  
> Warning: These variables are undefined:
>   COMMON-LISP-USER::*LIBRARY* COMMON-LISP-USER::*MODULE-FILES*
>  
>  
> Compilation unit finished.
>   8 warnings
>  
>  
> /home/pmatos/projects/sourceforge/clocc/clocc/src/defsystem-3.x/defsystem.x86f written.
> Compilation finished in 0:00:08.
> /home/pmatos/projects/sourceforge/clocc/clocc/bin/run-lisp -cat
> clocc.x86f src/defsystem-3.x/defsystem.x86f > clocc-top.x86f

I see these warnings too.  I have no idea why PROVIDE/REQUIRE
redefinition is guarded with

        #-(or (and :CMU (not :new-compiler)) ...)

and not

        #-(or (and :CMU :new-compiler) ...)

Marco?

> pmatos@localhost clocc $ cd src/
> pmatos@localhost src $ cd cllib/
> pmatos@localhost cllib $ make system
> /home/pmatos/projects/sourceforge/clocc/clocc/bin/run-lisp -i
> /home/pmatos/projects/sourceforge/clocc/clocc/clocc-top -i cllib.system
> \
>         -x '(funcall (intern "COMPILE-SYSTEM" :mk) "cllib")'
> ; Loading
> #p"/home/pmatos/projects/sourceforge/clocc/clocc/clocc-top.x86f".
> ; Loading
> #p"/home/pmatos/projects/sourceforge/clocc/clocc/src/cllib/cllib.system".
>  
> In: LET (TBC)
>   (LET (TBC)
>     (SETQ MAKE:*CENTRAL-REGISTRY* (NCONC # MAKE:*CENTRAL-REGISTRY*))
>     (MAKE:DEFSYSTEM CLLIB
>                     :SOURCE-PATHNAME
>                     (TRANSLATE-LOGICAL-PATHNAME "clocc:src;cllib;") ..))
> Note: Variable TBC defined but never used.
> make: *** [system] Error 1
> pmatos@localhost cllib $ cd ..
> pmatos@localhost src $ cd port/
> pmatos@localhost port $ make system
> /home/pmatos/projects/sourceforge/clocc/clocc/bin/run-lisp -i
> /home/pmatos/projects/sourceforge/clocc/clocc/clocc-top -i port.system \
>         -x '(funcall (intern "COMPILE-SYSTEM" :mk) "port")'
> ; Loading
> #p"/home/pmatos/projects/sourceforge/clocc/clocc/clocc-top.x86f".
> ; Loading
> #p"/home/pmatos/projects/sourceforge/clocc/clocc/src/port/port.system".
> make: *** [system] Error 1

I do not observe these.  I see


In: LET (TBC)
  (LET (TBC)
    (SETQ MAKE:*CENTRAL-REGISTRY* (NCONC # MAKE:*CENTRAL-REGISTRY*))
    (MAKE:DEFSYSTEM CLLIB
                    :SOURCE-PATHNAME
                    (TRANSLATE-LOGICAL-PATHNAME "clocc:src;cllib;") ..))
Note: Variable TBC defined but never used.
; Loading #p"/usr/local/src/clocc/src/cllib/cllib.system".
Note: Variable TBC defined but never used.


-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat8 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html>
Why use Windows, when there are Doors?