structure constructor error

I have attached the source file causing the following compile error:

keithr@katana:~$ lispcmucl-help at cons.org>
CMU Common Lisp CVS 19d 19d-release (19D), running on katana
With core: /usr/lib/cmucl/lisp.core
Dumped on: Fri, 2007-09-28 23:45:25-05:00 on katana
For support see http://www.cons.org/cmucl/support.html Send bug reports to
the debian BTS.
or to [email protected]
type (help) for help, (quit) to exit, and (demo) to see the demos

Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2004/04/14 03:32:47
* (compile-file "rt3.lisp")

; Python version 1.1, VM version Intel x86 on 27 OCT 07 11:42:11 am.
; Compiling: /home/keithr/rt3.lisp 26 OCT 07 11:57:59 pm

; Converted PALINDROME?.
; Compiling DEFUN PALINDROME?:
; Converted SQ.
; Compiling DEFUN SQ:
; Converted MAG.
; Compiling DEFUN MAG:
; Converted UNIT-VECTOR.
; Compiling DEFUN UNIT-VECTOR:
; Byte Compiling Top-Level Form:
; Converted MAKE-POINT.
; Compiling DEFSTRUCT POINT:
; Converted DISTANCE.
; Compiling DEFUN DISTANCE:
; Converted MINROOT.
; Compiling DEFUN MINROOT:
; Byte Compiling Top-Level Form:
; Byte Compiling Creation Form for #<KERNEL::CLASS-CELL POINT>:
; Converted MAKE-SURFACE.
; Compiling DEFSTRUCT SURFACE:

Error in KERNEL:%COERCE-TO-FUNCTION:  the function MAKE-POINT is undefined.
   [Condition of type UNDEFINED-FUNCTION]

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(KERNEL:%COERCE-TO-FUNCTION MAKE-POINT)
Source:
; File: target:code/fdefinition.lisp
(FDEFN-OR-LOSE NAME)
0]





The source is the ray tracing example from the book ANSI Common Lisp.
Thanks,
K



-- Binary/unsupported file stripped by Listar --
-- Type: application/octet-stream
-- File: rt3.lisp