Commit 492a151d authored by Daniel Kochmański's avatar Daniel Kochmański

non-ansi: add hack for the fdefinition

This will work only for symbols. Appropriate warning attached.
parent 7c0da360
......@@ -344,6 +344,22 @@ Estimated total monitoring overhead: 0.88 seconds
;;; Implementation Dependent Definitions ***************************
;;; ****************************************************************
;;; ********************************
;;; Hacks for non-conforming CL ****
;;; ********************************
(eval-when (compile load eval)
(unless (fboundp 'fdefinition)
(eval-when (compile eval)
(warn "This is not ANSI conforming Common Lisp. Expect problems."))
(defun fdefinition (symbol)
(symbol-function symbol))
(defsetf fdefinition (name) (new-definition)
`(setf (symbol-function ,name) ,new-definition))))
;;; ********************************
;;; Type Definitions ***************
;;; ********************************
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment