Commit 16d87d79 authored by Daniel Kochmański's avatar Daniel Kochmański

gcl: make gcl happy with fdefinition

parent 059339d5
......@@ -89,3 +89,13 @@
(progn
(setf (sb-ext:bytes-consed-between-gcs) 25000000)
(setq sb-ext:*intexp-maximum-exponent* 100000))
;; i.e GCL
(eval-when (compile load eval)
(unless (fboundp 'fdefinition)
(eval-when (load 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))))
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