diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 1fef0e3c980d10e5e1cba123a92224a22aff14ad..30380b086e01aed77009bdbce5610fedc5b6ed1b 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.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/backend.lisp,v 1.16 1992/03/21 19:39:02 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.17 1992/03/22 17:29:20 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -170,7 +170,7 @@ #'(lambda (name) `(defun ,name (&rest args) (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name) - (backend-vm-support-routines *backend*)) + (backend-support-routines *backend*)) (error "Machine specific support routine ~S ~ undefined for ~S" ',name *backend*)) @@ -225,7 +225,7 @@ "VM-SUPPORT-ROUTINES-" (string name)) (find-package "C")) - (backend-vm-support-routines *target-backend*)) + (backend-support-routines *target-backend*)) #',local-name)))) @@ -306,3 +306,10 @@ :%features features :misfeatures misfeatures))) (setf *target-backend* backend))) + + + +;;;; temporary hack. + +(defun backend-vm-support-routines (backend) + (backend-support-routines backend))