From 1ccf287585b17edbc048924ad33f3300b11e2e55 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 20 Feb 1990 19:39:39 +0000 Subject: [PATCH] Changed fast-safe to :fast-safe to make define-vop happy. --- compiler/mips/cell.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp index 165afee4d..65dc1aee1 100644 --- a/compiler/mips/cell.lisp +++ b/compiler/mips/cell.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.10 1990/02/20 19:34:59 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.11 1990/02/20 19:39:39 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the MIPS. @@ -163,7 +163,7 @@ (:temporary (:scs (descriptor-reg) :to (:result 0) :target real-result) result) (:results (real-result :scs (descriptor-reg))) - (:policy fast-safe) + (:policy :fast-safe) ,@(when alloc-trans `((:translate ,alloc-trans))) (:generator 37 -- GitLab