RE: [Gcl-devel] eval-when 'defaults'

[Mike Thomas]

Hi Camm.

| Odd thing is that this appears to work as expected in cmucl, but the
| spec seems to leave some of the behavior unspecified/implementation
| specific.

As a further data point, LispWorks Personal on Windows gives the following
(I replaced sloop with loop).

Cheers

Mike Thomas

CL-USER 4 > (compile-file "c:/cvs/head/gcl/specfntest_loop.lsp")
;;; Compiling file c:/cvs/head/gcl/specfntest_loop.lsp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is  on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (DEFVAR *ACURSOR*)
; DEF-OP
; MAKE-OPERATION
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; SET-UP-CURSOR
; ASET-BY-CURSOR
; FILLARRAY
; (DEFVAR *LI2*)
; (TOP-LEVEL-FORM 4)
; (TOP-LEVEL-FORM 5)

The following functions are undefined:
F- which is referenced by SET-UP-CURSOR
LISTARRAY which is referenced by FILLARRAY
F+ which is referenced by ASET-BY-CURSOR

;; *** Automatic Minor Clean Down
#P"c:/cvs/head/gcl/specfntest_loop.fsl"
NIL
NIL

CL-USER 5 > (load "c:/cvs/head/gcl/specfntest_loop.fsl")
; Loading fasl file c:\cvs\head\gcl\specfntest_loop.fsl

Error: Macro or special form F- called as a function with args (15 1).
  1 (continue) Try loading c:/cvs/head/gcl/specfntest_loop.fsl again.
  2 Give up loading c:/cvs/head/gcl/specfntest_loop.fsl.
  3 Try loading another file instead of c:/cvs/head/gcl/specfntest_loop.fsl.
  4 (abort) Return to level 0.
  5 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other
options

CL-USER 6 : 1 >