From 636b0497d960422fe029a4ce18bcf2a439a03228 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Mon, 27 Jul 1992 13:45:15 +0000 Subject: [PATCH] Fixed setting reads and writes in the define-instruction macro to use (car args) instead of just args. --- compiler/new-assem.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/new-assem.lisp b/compiler/new-assem.lisp index 9027a8a28..6f5368a0c 100644 --- a/compiler/new-assem.lisp +++ b/compiler/new-assem.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/new-assem.lisp,v 1.6 1992/07/24 03:31:47 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/new-assem.lisp,v 1.7 1992/07/27 13:45:15 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1558,12 +1558,12 @@ (when (or reads (cdr args)) (error "Can only specify one reads expression per instruction.")) - (setf reads args)) + (setf reads (car args))) (:writes (when (or writes (cdr args)) (error "Can only specify one writes expression per instruction.")) - (setf writes args)) + (setf writes (car args))) (:delay (when delay (error "Can only specify delay once per instruction.")) -- GitLab