Error building src/port with CMUCL

I have successfully built clocc-top with CMUCL Snapshot 2004-12.  But
when I try to build src/port, I get this error (`cmucl' is a stock
CMUCL core with the addition of Gray streams):

paolo@plato:~/src/clocc/src/port$ export LISPTYPE=cmucl; export CMUCL=cmucl; make system
/home/paolo/src/clocc/bin/run-lisp -i /home/paolo/src/clocc/clocc-top -i port.system \
        -x '(funcall (intern "COMPILE-SYSTEM" :mk) "port")'
; Loading #P"/home/paolo/src/clocc/clocc-top.x86f".
; Loading #P"/home/paolo/src/clocc/src/port/port.system".
; Loading #P"/home/paolo/src/clocc/src/port/port.system".
PORT/ALL (7 files) totals 83,128 bytes (81 kB)

; Python version 1.1, VM version Intel x86 on 22 DEC 04 08:07:48 pm.
; Compiling: /home/paolo/src/clocc/src/port/ext.lisp 18 OCT 04 05:17:36 pm

; Compiling DEFINE-CONDITION CODE:
; Compiling DEFINE-CONDITION CODE:
; Byte Compiling Top-Level Form:
; Compiling DEFINE-CONDITION CODE:
; Compiling DEFINE-CONDITION CODE:
; Compiling DEFINE-CONDITION CASE-ERROR:
; Byte Compiling Top-Level Form:
; Compiling DEFINE-CONDITION NOT-IMPLEMENTED:
; Compiling DEFINE-CONDITION NOT-IMPLEMENTED:
; Compiling DEFINE-CONDITION NOT-IMPLEMENTED:
[...]
; File: /home/paolo/src/clocc/src/port/sys.lisp

; In: DEFUN COMPILED-FILE-P

;   (DEFUN COMPILED-FILE-P (FILE-NAME)
;     "Return T if the FILE-NAME is a filename designator for a valid compiled.
; Signal an error when it is not a filename designator.
; Return NIL when the file does not exist, or is not readable,
; or does not contain valid compiled code." ..)
; Note: Variable FILE-NAME defined but never used.
[...]
; Python version 1.1, VM version Intel x86 on 22 DEC 04 08:07:49 pm.
; Compiling: /home/paolo/src/clocc/src/port/net.lisp 09 NOV 04 05:31:20 pm

; Byte Compiling Top-Level Form:
; Converted IPADDR-TO-DOTTED.
; Compiling DEFUN IPADDR-TO-DOTTED:
; Converted DOTTED-TO-IPADDR.
; Compiling DEFUN DOTTED-TO-IPADDR:
; Byte Compiling Top-Level Form:
[...]
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::HASH6 ...)
                                         ...):
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::HASH7 ...)
                                         ...):
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::CLASS ...)
                                         ...):
; Compiling Load Time Value of (PCL::FIND-CLASS-CELL 'KERNEL::STRUCTURE-CLASS):
; Compiling Creation Form for #<KERNEL::STRUCTURE-CLASS HOSTENT {588021D5}>:
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::CLASS-INFO ...)
                                         ...):
; Compiling Load Time Value of (PCL::FIND-CLASS-CELL 'KERNEL::TYPE-CLASS):
; Compiling Creation Form for #<TYPE-CLASS KERNEL::CLASS>:
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::NAME ...)
                                         ...):
; Compiling Load Time Value of (PCL::ENSURE-ACCESSOR 'PCL::WRITER
                                         '(PCL:SLOT-ACCESSOR :GLOBAL
                                           KERNEL::SIMPLE-SUBTYPEP ...)
                                         ...):
; Compilation aborted after 0:00:00.

; Compilation unit aborted.
;   1 fatal error
;   1 note

make: *** [system] Error 1
paolo@plato:~/src/clocc/src/port$

Is this a CMUCL issue?


Paolo
-- 
Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/