From 3b310b16ed479a8b68d0f1bbc68628f8449d3dd8 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 16:04:40 +0000 Subject: [PATCH] Oops, left out a backquote. --- compiler/vmdef.lisp | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp index e81e6cd8d..9f3849684 100644 --- a/compiler/vmdef.lisp +++ b/compiler/vmdef.lisp @@ -440,17 +440,17 @@ ;;; (macrolet ((frob (name sc-numbers-fun compile-time-also) - (eval-when (load eval ,@(when compile-time-also '(compile))) - (defun ,name (sc ptype) - (declare (type sc sc) (type primitive-type ptype)) - (let ((scn (sc-number sc))) - (dolist (allowed (primitive-type-scs ptype) nil) - (when (eql allowed scn) - (return t)) - (let ((allowed-sc (svref (,sc-numbers-fun *backend*) allowed))) - (when (or (member sc (sc-alternate-scs allowed-sc)) - (member sc (sc-constant-scs allowed-sc))) - (return t))))))))) + `(eval-when (load eval ,@(when compile-time-also '(compile))) + (defun ,name (sc ptype) + (declare (type sc sc) (type primitive-type ptype)) + (let ((scn (sc-number sc))) + (dolist (allowed (primitive-type-scs ptype) nil) + (when (eql allowed scn) + (return t)) + (let ((allowed-sc (svref (,sc-numbers-fun *backend*) allowed))) + (when (or (member sc (sc-alternate-scs allowed-sc)) + (member sc (sc-constant-scs allowed-sc))) + (return t))))))))) (frob sc-allowed-by-primitive-type backend-sc-numbers nil) (frob meta-sc-allowed-by-primitive-type backend-meta-sc-numbers t)) -- GitLab