From e4e550daedf669c72c21dbe773fc2a0c2910a408 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 21 May 1991 22:18:05 +0000
Subject: [PATCH] Made bits, bytes, etc., be defined in the null environment so
 that they can be inline expanded.

---
 code/alieneval.lisp | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index fbe368540..eb52b8c57 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -7,12 +7,10 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.10 1991/02/08 13:30:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.11 1991/05/21 22:18:05 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.10 1991/02/08 13:30:36 ram Exp $
-;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
 ;;;
@@ -537,17 +535,18 @@
 ;;; Bits, Bytes, Words, Long-Words  --  Public
 ;;;
 ;;;
-(macrolet ((frob (name n)
-	     `(progn
-		(proclaim '(inline ,name))
-		(defun ,name (n)
-		  (declare (type (integer 0 ,(truncate most-positive-fixnum n))
-				 n))
-		  (* n ,n)))))
-  (frob bits 1)
-  (frob bytes 8)
-  (frob words 16)
-  (frob long-words 32))
+(eval-when (compile eval)
+(defmacro def-words-frob (name n)
+  `(progn
+     (proclaim '(inline ,name))
+     (defun ,name (n)
+       (declare (type (integer 0 ,(truncate most-positive-fixnum n))
+		      n))
+       (* n ,n)))))
+(def-words-frob bits 1)
+(def-words-frob bytes 8)
+(def-words-frob words 16)
+(def-words-frob long-words 32)
 
 
 ;;;; General case versions of compiler internal functions:
-- 
GitLab