From 16d87d79a769e306bffb9d401476adb13ebd2d05 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 7 Jun 2016 20:13:49 +0200 Subject: [PATCH] gcl: make gcl happy with fdefinition --- cl-bench.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/cl-bench.lisp b/cl-bench.lisp index 758f0be..2c8eb0d 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)))) -- GitLab