diff --git a/cl-bench.lisp b/cl-bench.lisp index 758f0bee7d46b1ddebda059a6e973cd3186b10bc..2c8eb0d176511cdaa3acd0b33a557060427e4f6b 100644 --- a/cl-bench.lisp +++ b/cl-bench.lisp @@ -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))))