X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsystem.lisp;h=0ef87f43ec9ce6c96ac06203f3faa68df8c469f6;hb=09d7974601df2aaaa820ca576026b9b4f03e6ab1;hp=77ab3ead51cb9bba44bc8652b370c97a08f1e9af;hpb=a23903deaf6348cc088eb0f992a99cdba0a37d66;p=sbcl.git

diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp
index 77ab3ea..0ef87f4 100644
--- a/src/compiler/sparc/system.lisp
+++ b/src/compiler/sparc/system.lisp
@@ -68,6 +68,8 @@
   (:generator 6
     (load-type result function (- fun-pointer-lowtag))))
 
+;;; Is this VOP dead? I can't see anywhere that it is used... -- CSR,
+;;; 2002-06-21
 (define-vop (set-fun-subtype)
   (:translate (setf fun-subtype))
   (:policy :fast-safe)