From 5593f05878b98c29b474d0a024998d9fa02b36b8 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 12 Dec 1990 16:56:45 +0000 Subject: [PATCH] Added exports for kernel:%unary-round and assem:count-instructions. --- code/exports.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index ad79b68ab..8ddc50053 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.64 1990/12/07 22:52:41 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.65 1990/12/12 16:56:45 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -292,7 +292,7 @@ double-float-high-bits double-float-low-bits single-float-p double-float-p base-char-p simple-array-p %raw-bits %set-raw-bits %sp-set-definition - make-array-header allocate-vector + make-array-header allocate-vector %unary-round )) @@ -693,7 +693,7 @@ define-register-file dump-segment emit-code-vector emit-label finalize-segment fixup fixup-flavor fixup-name fixup-offset fixup-p gen-label insert-segment inst label label-id label-position - make-fixup make-segment nuke-segment)) + make-fixup make-segment nuke-segment count-instructions)) (in-package "EVAL") -- GitLab