Skip to content
Snippets Groups Projects
Commit 0a197195 authored by pmai's avatar pmai
Browse files

Made bootfile work for old lisps which are still missing fdefn-or-lose.

parent b61912ba
No related branches found
No related tags found
No related merge requests found
......@@ -9,12 +9,25 @@
;;;
;;; Move FDEFN-OR-LOSE to KERNEL and export it from there.
;;;
(in-package :lisp)
(unless (fboundp 'fdefn-or-lose)
(defun fdefn-or-lose (name)
"Return the FDEFN of NAME. Signal an error if there is none
or if it's function is null."
(let ((fdefn (fdefinition-object name nil)))
(unless (and fdefn (fdefn-function fdefn))
(error 'undefined-function :name name))
fdefn)))
(in-package :user)
(setf (fdefinition 'kernel::fdefn-or-lose)
(fdefinition 'lisp::fdefn-or-lose))
(unintern 'cl::fdefn-or-lose :cl)
(export 'kernel::fdefn-or-lose :kernel)
(in-package :profile)
(defmacro defstruct! (name &rest stuff)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment