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