From 1e1ba5d5b43e20a4c0b157f08d4c85fe880c7e25 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 9 Dec 2011 17:00:00 +0200 Subject: [PATCH] rename FOP-INTERN AUX-FOP-INTERN for clarity ...so as not to confuse it with actual FOPs. --- src/code/fop.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/code/fop.lisp b/src/code/fop.lisp index 9f6d58b..e45704e 100644 --- a/src/code/fop.lisp +++ b/src/code/fop.lisp @@ -192,7 +192,7 @@ ;;;; fops for loading symbols -(defun fop-intern (smallp package) +(defun aux-fop-intern (smallp package) (let ((size (if smallp (read-byte-arg) (read-word-arg)))) @@ -214,7 +214,7 @@ (macrolet ((def (name code smallp package-form) `(define-fop (,name ,code) - (fop-intern ,smallp ,package-form)))) + (aux-fop-intern ,smallp ,package-form)))) (def fop-lisp-symbol-save 75 nil *cl-package*) (def fop-lisp-small-symbol-save 76 t *cl-package*) -- 1.7.10.4