Some system code apparently calls WARNING, not a defined function?

[Mitchell Marks <mitchell@gargoyle.uchicago.edu>]

Hi,
   I did something which apparently earned a warning -- specifically, I
interactively defined some functions within a LET (the code shown below is
a simplified example sufficient to reproduce the problem), then tried to
compile one of those functions using COMPILE.  The warning turned into an
error, however.  From the look of the error message and the backtrace, it
seemed that something in the code that was trying to generate the warning
used WARNING rather than WARN as a function, and the error was that WARNING
is not a defined function.

BTW, I'm not sure why that sequence of events merited a warning, or what
the warning was going to be.  But of course I don't need to do that
sequence of events, and the user-code involved works fine when just
interpreted and when compiled in a file.  So my report/question is only
concerning the subsequent error.

A dribble-bug file is appended.

Thanks,
Mitch Marks
mitchell@cs.uchicago.edu

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

dribbling to file "/aig1/mitchell/common/misc/dribble-bug"
 
LISP-IMPLEMENTATION-TYPE: Allegro CL
LISP-IMPLEMENTATION-VERSION: 4.0.1 [Sun4] (2/8/91)
MACHINE-TYPE: Sun4
MACHINE-VERSION: 
SOFTWARE-TYPE: SunOS
SOFTWARE-VERSION: 
SHORT-SITE-NAME: gluttony.uchicago.edu
*features*: (:HAS-RCSNOTE :LOOP LOOP :CW-X-V2 :CW-X :CLX-MIT-R4 :XLIB :CLX
             :MULTIPROCESSING :CLOS :UNIX :SUN4 :SPARC :SUN :SUNOS4 :FLAVORS
             :IEEE :IEEE-FLOATING-POINT :CONFORMING-IEEE :COMMON-LISP :ALLEGRO
             :EXCL :FRANZ-INC :ALLEGRO-VERSION>= :ALLEGRO-V4.0 :GSGC
             :BIG-ENDIAN :DYNAFASL)
*modules*: ("EMACS" "DEFCTYPE" "IPC" "LOOP" "XCLAWS" "XCW" "CLX" "DEFSYSTEM"
            "DEFSYS" "MDPROC" "PROCESS" "FOREIGN" "FOREIGN-FUNCTIONS" "RINSTRS"
            "QSTRUCTS")
PATCH::*PATCHES*:
 (51 . "fix to shared-initialize")
 (1 . "comp of recursive tagbodies/blocks that turn into catch")
PATCH::*XCW-PATCHES*:
 (16 . ":initial-input arg to rubout handler didn't work")
 (12 . "initial items on pop-up menus")
 (11 . "window-stream-lisp-listener-process returned nil")
 (1 . "deactivating an icon; default programmatic icon position")
emacs: $aclHeader: emacs.cl,v 1.4 90/09/19 00:33:27 layer Rel $
defctype: $aclHeader: defctype.cl,v 1.9 90/09/12 09:04:04 layer Rel $
ipc: $aclHeader: ipc.cl,v 1.37 90/12/12 13:00:23 layer Rel $
loop: $aclHeader: loop.cl,v 1.6 90/09/19 00:33:22 layer Rel $
X Common Windows: X-CW 2.0 (12/24/90 23:59)
defsys: $aclHeader: defsys.cl,v 1.56 90/10/10 12:46:49 layer Rel $
mdproc: $aclHeader: mdproc.cl,v 1.23 90/04/12 19:57:08 layer Rel $
process: $aclHeader: process.cl,v 1.59 90/12/18 19:55:53 layer Rel $
foreign: $aclHeader: foreign.cl,v 1.59 90/12/14 00:15:02 layer Rel $

NIL 
<cl 65> (let ((count 0))
  (defun get-count () count)
  (defun reset-count () (setq count 0))
  (defun incf-count () (incf count))
  ) 
INCF-COUNT 
<cl 66> 

<cl 66> (compile 'reset-count)
; While compiling RESET-COUNT:
Error: attempt to call `WARNING' which is an undefined function.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `WARNING'.
[1c] <cl 67> :zo
Evaluation stack:

 ->(CERROR "prompt for a new function, instead of `~s'."
           "attempt to call `~s' which is an undefined function."
           WARNING)
   (EXCL::CER-GENERAL-ERROR-HANDLER-ONE 23 WARNING)
   (NIL)
   (COMP::COMPILE-LE (EXCL::.LEXICAL-CLOSURE. # # ...) RESET-COUNT T)
   (COMP::COMPILE-TO-LAPS (EXCL::.LEXICAL-CLOSURE. # # ...) RESET-COUNT NIL)
   ((FLET COMPILE COMP::COMPILER))
   (COMPILE RESET-COUNT #<non-lisp object @ #x102> )
   (EVAL (COMPILE 'RESET-COUNT))

... more older frames ...
[1c] <cl 68> :res

<cl 69> (dribble-bug)