diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp index 2e3eb7837415a10065e4ce7ebb6196e0d016644a..1e4173ab2d7305c8539851f25b52842bff1f9103 100644 --- a/compiler/ir2tran.lisp +++ b/compiler/ir2tran.lisp @@ -7,6 +7,8 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.3 1990/02/27 11:42:12 wlott Exp $ +;;; ;;; This file contains the virtual machine independent parts of the code ;;; which does the actual translation of nodes to VOPs. ;;; @@ -1698,6 +1700,8 @@ (frob list) (frob list*)) +#+rt-target(progn + (def-primitive-translator syscall (&rest args) `(%syscall ,@args)) (defknown %syscall (&rest t) *) @@ -1713,6 +1717,8 @@ (length args)) (move-continuation-result node block res cont))) +) ; rt-target progn + ;;;; Structure accessors: ;;;