On Wed, 2003-09-03 at 06:48, Gerd Moellmann wrote:
> Adam Warner <[EMAIL PROTECTED]> writes:
> 
> > This version takes around 7.86s to run.
> > 
> > If I comment out the (optimize (speed 3) (safety 0) (debug 0)) from
> > matmul and recompile it takes around 9.2s to run.
> 
> I don't see this happening with CVS CMUCL; and it shouldn't as far as
> I know the code.

Many thanks Gerd. It must be a very recent fix. I get the same behaviour
with Pierre R. Mai's binary:
<http://www.pmsf.de/pub/cmucl/binaries/cmucl-2003-08-15-x86-linux.tar.bz2>

I'm trying to build CMUCL CVS as a Debian package.
I have patched the orig.tar.gz to the latest version of unstable.
I have replaced the src directory with the CVS src.
I have replaced LISP in build-world.sh with the link to the binary above
(after finding I didn't have a hope of getting it to compile with an 18e
binary)
I have uninstalled the CMUCL Debian package so there is no chance a
script tries to run the older binary.

Does anyone understand why I can't continue after ignoring the package
lock below (it makes no difference if I choose 2 (disable all package
locks):

[EMAIL PROTECTED]:~/files/cmucl/debian/cmucl-18e.orig$ fakeroot debian/rules binary
# Add here commands to compile the arch part of the package.
/usr/bin/make
make[1]: Entering directory `/home/adam/files/cmucl/debian/cmucl-18e.orig'
./build-tools/create-target.sh target linux_gencgc x86  || true
./build-tools/clean-target.sh target || true
./build-tools/build-world.sh  target
CMU Common Lisp post-18e CVS 2003-08-15 18:37:04, running on work
With core: /home/adam/files/cmucl/binary/lib/cmucl/lib/lisp.core
Dumped on: Sat, 2003-08-16 11:02:24+12:00 on lorien.users.earthlink.net
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2003/06/18 09:23:09
*
#<The COMMON-LISP-USER package, 0/9 internal, 0/9 external>
*
("target/" "src/")
*
NIL
*
; Loading #p"/home/adam/files/cmucl/debian/cmucl-18e.orig/target/setenv.lisp".
T
*
(:NO-CLX :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS :PCL :PYTHON :CMU18
 :CMU18E :RELATIVE-PACKAGE-NAMES :CONSERVATIVE-FLOAT-TYPE :RANDOM-MT19937
 :HASH-NEW :STACK-CHECKING :LINKAGE-TABLE :MP :PENTIUM :I486 :GENCGC :X86
 :LINUX :GLIBC2 :UNIX :COMMON :COMMON-LISP :ANSI-CL :IEEE-FLOATING-POINT :CMU)
*
(:NO-CLM :NO-CLX :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS :PCL :PYTHON
 :CMU18 :CMU18E :RELATIVE-PACKAGE-NAMES :CONSERVATIVE-FLOAT-TYPE
 :RANDOM-MT19937 :HASH-NEW :STACK-CHECKING :LINKAGE-TABLE :MP :PENTIUM :I486
 :GENCGC :X86 :LINUX :GLIBC2 :UNIX :COMMON :COMMON-LISP :ANSI-CL
 :IEEE-FLOATING-POINT :CMU)
*
(:NO-HEMLOCK :NO-CLM :NO-CLX :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS
 :PCL :PYTHON :CMU18 :CMU18E :RELATIVE-PACKAGE-NAMES :CONSERVATIVE-FLOAT-TYPE
 :RANDOM-MT19937 :HASH-NEW :STACK-CHECKING :LINKAGE-TABLE :MP :PENTIUM :I486
 :GENCGC :X86 :LINUX :GLIBC2 :UNIX :COMMON :COMMON-LISP :ANSI-CL
 :IEEE-FLOATING-POINT :CMU)
*
; Loading #p"/home/adam/files/cmucl/debian/cmucl-18e.orig/src/code/exports.lisp".
Warning:  UNIX also exports the following symbols:
  (UNIX:CHECK)
T
*
; Loading #p"/home/adam/files/cmucl/debian/cmucl-18e.orig/src/tools/setup.lisp".T
* target:tools/setup
 
Start time: Wednesday, 9/3/03 12:53:02 pm [-12], compiling target:tools/setup.
 
; Python version 1.1, VM version Intel x86 on 03 SEP 03 12:53:02 pm.
; Compiling: /home/adam/files/cmucl/debian/cmucl-18e.orig/src/tools/setup.lisp 03 SEP 
03 11:22:25 am
 
; Comment: $Header: /home/anoncvs/CVS-cmucl/src/tools/setup.lisp,v 1.38 2003/07/20 
13:57:24 emarsden Exp $
 
; Byte Compiling Top-Level Form:
; Byte Compiling Top-Level Form:
; Compiling DEFINE-CONDITION GENESIS-C-HEADER-FILE-CHANGED:
; Byte Compiling Top-Level Form:
; Converted DUMP-PACKAGE-STATE.
; Compiling DEFUN DUMP-PACKAGE-STATE:
; Converted COPY-PACKAGES.
; Compiling DEFUN COPY-PACKAGES:
; Byte Compiling Top-Level Form:
; Converted WITH-COMPILER-LOG-FILE.
; Compiling DEFMACRO WITH-COMPILER-LOG-FILE:
; Converted COMF.
; Compiling DEFUN COMF:
; Byte Compiling Top-Level Form:
; Compiling Creation Form for #<KERNEL::CLASS-CELL C::COMPILER-ERROR>:
; Converted VMDIR.
; Compiling DEFUN VMDIR:
; Converted CAT-IF-ANYTHING-CHANGED.
; Compiling DEFUN CAT-IF-ANYTHING-CHANGED:
; Byte Compiling Top-Level Form:
 
; target:tools/setup.x86f written.
; Compilation finished in 0:00:01.
; Loading #p"/home/adam/files/cmucl/debian/cmucl-18e.orig/target/tools/setup.x86f".
#p"/home/adam/files/cmucl/debian/cmucl-18e.orig/target/tools/setup.x86f"
NIL
NIL
*
NIL
*
; Loading #p"/home/adam/files/cmucl/debian/cmucl-18e.orig/src/tools/worldcom.lisp".
target:code/struct
target:code/sysmacs
target:assembly/assemfile
;; Loading 
#p"/home/adam/files/cmucl/debian/cmucl-18e.orig/target/assembly/assemfile.x86f".
 
 
Attempt to modify the locked package C, by redefining function ASSEMBLE-FILE
   [Condition of type LISP::PACKAGE-LOCKED-ERROR]
 
Restarts:
  0: [CONTINUE      ] Ignore the lock and continue
  1: [UNLOCK-PACKAGE] Disable package's definition-lock, then continue
  2: [UNLOCK-ALL    ] Disable all package locks, then continue
  3:                  Return NIL from load of "target:assembly/assemfile".
  4:                  Return NIL from load of "target:tools/worldcom".
  5: [ABORT         ] Return to Top-Level.
 
Debug  (type H for help)
 
(LISP::REDEFINING-FUNCTION ASSEMBLE-FILE #<unused-arg>)
Source:
; File: target:code/package.lisp
 
; File has been modified since compilation:
;   target:code/package.lisp
; Using form offset instead of character position.
(RESTART-CASE
 (ERROR 'PACKAGE-LOCKED-ERROR :PACKAGE PACKAGE :FORMAT-CONTROL ...)
 (CONTINUE NIL :REPORT "Ignore the lock and continue")
 (UNLOCK-PACKAGE NIL :REPORT "Disable package's definition-lock, then continue"
  (SETF # NIL))
 (UNLOCK-ALL NIL :REPORT "Disable all package locks, then continue"
  (UNLOCK-ALL-PACKAGES)))
0] 0
 
 
Execution of a form compiled with errors:
 (DEFSTRUCT (REG-SPEC (:PRINT-FUNCTION %PRINT-REG-SPEC))
   (KIND :TEMP :TYPE (MEMBER :ARG :TEMP :RES))
   (NAME NIL :TYPE SYMBOL)
   (TEMP NIL :TYPE SYMBOL)
   (SCS NIL :TYPE (OR LIST SYMBOL))
   (OFFSET NIL))
   [Condition of type SIMPLE-PROGRAM-ERROR]
 
Restarts:
  0: [CONTINUE] Return NIL from load of "target:assembly/assemfile".
  1:            Return NIL from load of "target:tools/worldcom".
  2: [ABORT   ] Return to Top-Level.
 
Debug  (type H for help)
 
("Top-Level Form")[:TOP-LEVEL]
Source:
0]

Thanks,
Adam


Reply via email to