Re: Small core broken?

,--- I/Alex (Wed, 28 May 2008 23:13:40 -0400) ----*
|
| Will adding
| 
|     (pushnew :small *features*)
| 
| to `tools/setenv-scripts/base-features.lisp' do? Cross-build is not
| needed, right?
|
`-------------------------------------------------*

This didn't work for me, on FreeBSD:

----------------------------------------------------------------------

; Loading #P"XXX/build-2/setenv.lisp".
T
* 
(:NO-CLX :SMALL :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS :PCL
...

Loading binary of STRATEGY...
Compiling IMPL...

; Python version 1.1, VM version Intel x86 on 28 MAY 08 11:14:10 pm.
; Compiling: XXX/src/pcl/simple-streams/impl.lisp 06 DEC 04 12:07:05 pm

; Comment: $Header: /project/cmucl/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.7 2004/12/06
17:07:05 rtoy Exp $

; Converted %UNINITIALIZED.
; Compiling DEFUN %UNINITIALIZED: 
; Converted %CHECK.
; Compiling DEFUN %CHECK: 

; 
; 
; File: XXX/src/pcl/simple-streams/impl.lisp

; In: DEFUN %CHECK

;   (ANY-STREAM-INSTANCE-FLAGS STREAM :SIMPLE)
; --> NOT IF ZEROP = 
; ==>
;   (LOGAND (SM %FLAGS #:STREAM0) 1)
; Note: Forced to do static-function Two-arg-and (cost 53).
;     Unable to do inline fixnum arithmetic (cost 1) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     Unable to do inline fixnum arithmetic (cost 2) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     etc.
; 
;   (ANY-STREAM-INSTANCE-FLAGS STREAM :INPUT :OUTPUT)
; --> NOT IF ZEROP = 
; ==>
;   (LOGAND (SM %FLAGS #:STREAM0) 6)
; Note: Forced to do static-function Two-arg-and (cost 53).
;     Unable to do inline fixnum arithmetic (cost 1) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     Unable to do inline fixnum arithmetic (cost 2) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     etc.
; 
;   (ANY-STREAM-INSTANCE-FLAGS STREAM :INPUT)
; --> NOT IF ZEROP = 
; ==>
;   (LOGAND (SM %FLAGS #:STREAM0) 2)
; Note: Forced to do static-function Two-arg-and (cost 53).
;     Unable to do inline fixnum arithmetic (cost 1) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     Unable to do inline fixnum arithmetic (cost 2) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     etc.
; 
;   (ANY-STREAM-INSTANCE-FLAGS STREAM :OUTPUT)
; --> NOT IF ZEROP = 
; ==>
;   (LOGAND (SM %FLAGS #:STREAM0) 4)
; Note: Forced to do static-function Two-arg-and (cost 53).
;     Unable to do inline fixnum arithmetic (cost 1) because:
;     The first argument is a INTEGER, not a FIXNUM.
;     Unable to do inline fixnum arithmetic (cost 2) because:
;     The first argument is a INTEGER, not a FIXNUM.

; target:code/hash-new.x86f written.
; Compilation finished in 0:00:00.

Error in function "<error finding name>":  Segmentation Violation at #x47FD7B7C.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of "target:tools/worldcom".
  1: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(C::DO-CALL #<Code Object "DEFUN PRINT-FRAME-CALL-1" {101A65D7}> 24 231 216
 301948867 ("Tag for DEFUN PRINT-FRAME-CALL-1"))
Source: 
; File: target:code/byte-interp.lisp
(BYTE-APPLY FUNCTION NUM-ARGS OLD-SP)
0]

-- Alex -- alex-goncharov <at> comcast.net --

/*
 * Resisting temptation is easier when you
 * think you'll probably get another chance later on.
 */