From f22dfd200c8e42c54a4e64d807f98606bb5c307b Mon Sep 17 00:00:00 2001 From: Marco Antoniotti Date: Tue, 17 Jan 2017 18:02:45 +0100 Subject: [PATCH] Fixed usual problem with DEFCONSTANT and SBCL. --- ook.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ook.lisp b/ook.lisp index 42292ae..3f866b2 100644 --- a/ook.lisp +++ b/ook.lisp @@ -27,9 +27,16 @@ result : a lambda-expression taking no arguments.")) (declaim (ftype (function (t) t) ook?)) +#-sbcl (defconstant +ooks+ '(ook. ook? ook!) "Need we say more?") + +#+sbcl ; Fascist SBCL!!!!! +(defparameter +ooks+ '(ook. ook? ook!) + "Need we say more?") + + (defconstant monkey?!? 'monkey?!? "You are in trouble if you call him 'monkey'!") -- GitLab