From f5c117c478a82983d7492d62388cfa3283e0780b Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Mon, 26 Dec 2016 06:08:49 -0500 Subject: [PATCH] Avoid "recursion in known function definition" warning. Change 58829d6d removed SET-FUN-SUBTYPE, and henceforth it was wrong to compile a call to (SETF FUN-SUBTYPE) without a vop translation. Strangely, only some platforms warned about it. That's a bug. --- src/code/kernel.lisp | 2 -- src/compiler/generic/vm-fndb.lisp | 4 ---- 2 files changed, 6 deletions(-) diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp index 700ad8b2e..073baf288 100644 --- a/src/code/kernel.lisp +++ b/src/code/kernel.lisp @@ -72,8 +72,6 @@ ;;; Return the header typecode for FUNCTION. Can be set with SETF. (defun fun-subtype (function) (fun-subtype function)) -(defun (setf fun-subtype) (type function) - (setf (fun-subtype function) type)) ;;;; SIMPLE-FUN and accessors diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp index 64ae4bc89..c203db7f7 100644 --- a/src/compiler/generic/vm-fndb.lisp +++ b/src/compiler/generic/vm-fndb.lisp @@ -428,10 +428,6 @@ #.sb!vm:closure-header-widetag #.sb!vm:funcallable-instance-header-widetag) (flushable)) -(defknown ((setf fun-subtype)) - ((unsigned-byte #.sb!vm:n-widetag-bits) function) - (unsigned-byte #.sb!vm:n-widetag-bits) - ()) (defknown make-fdefn (t) fdefn (flushable movable)) (defknown fdefn-p (t) boolean (movable foldable flushable)) -- 2.11.4.GIT