From dc5f09ca9fe80896ec7fd8677a3e517ce9213285 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 4 Jul 2011 04:39:13 +0000 Subject: * interp/vmlisp.lisp (PRINTEXP): Remove. * interp/br-data.boot: Use writeString, writeChar, and writeLine. * interp/c-util.boot: Likewise. * interp/diagnostics.boot: Likewise. * interp/fortcall.boot: Likewise. * interp/i-output.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/i-util.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/newfort.boot: Likewise. * interp/record.boot: Likewise. * interp/g-opt.boot ($VMsideEffectFreeOperators): Include %writeString, %writeNewline, %writeLine. * interp/lisp-backend.boot: Translate them. --- src/interp/vmlisp.lisp | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/interp/vmlisp.lisp') diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 0f3d1f2f..24e904c1 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -1261,8 +1261,6 @@ (define-function 'prin2cvec #'princ-to-string) (define-function 'stringimage #'princ-to-string) -(define-function 'printexp #'princ) - (defun |F,PRINT-ONE| (form &optional (stream |$OutputStream|)) (declare (ignore stream)) (let ((*print-level* 4) (*print-length* 4)) -- cgit v1.2.3