From 132b22f293c218545dfd3c65475687afb8d477f0 Mon Sep 17 00:00:00 2001 From: digikar99 Date: Mon, 17 May 2021 21:53:23 +0530 Subject: [PATCH] fix https://github.com/Clozure/ccl/issues/350 : set lfun-bits inside set-funcallable-instance-function --- level-1/l1-clos.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/level-1/l1-clos.lisp b/level-1/l1-clos.lisp index 05bc0ec79..d80b6cb45 100644 --- a/level-1/l1-clos.lisp +++ b/level-1/l1-clos.lisp @@ -1822,6 +1822,9 @@ changing its name to ~s may have serious consequences." class new)) (error "~S is not a funcallable instance" funcallable-instance)) (unless (functionp function) (error "~S is not a function" function)) + (lfun-bits funcallable-instance + (logior (lfun-bits funcallable-instance) + (logand (lfun-bits function) (1- (expt 2 16))))) (setf (%gf-dcode funcallable-instance) function)) (defmethod reinitialize-instance ((slotd slot-definition) &key &allow-other-keys)