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