From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 9 Dec 2011 15:00:00 +0000 (+0200)
Subject: rename FOP-INTERN AUX-FOP-INTERN for clarity
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=1e1ba5d5b43e20a4c0b157f08d4c85fe880c7e25;p=sbcl.git

rename FOP-INTERN AUX-FOP-INTERN for clarity

  ...so as not to confuse it with actual FOPs.
---

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*)