0.7.10.10:

[sbcl.git] / src / compiler / sparc / system.lisp

diff --git a/src/compiler/sparc/system.lisp b/src/compiler/sparc/system.lisp
index 77ab3ea..0ef87f4 100644 (file)
--- 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)