boot14.lisp 263 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
;;;
;;; Bootstrap file for removing the function definition of
;;; FIXNUM, which must not exist according to CLtS.
;;;

(in-package :vm)

(export 'fixnumize)

(when (fboundp 'fixnum)
  (setf (fdefinition 'fixnumize) (fdefinition 'fixnum)))
      
;;; End of file.