X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=d9acdd5f6349798894791c04a18e32d18c901751;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=655b6e9c2ef52025058d5fee64bcbb65562cb521;hpb=360bfcf8c91635f390dad7139dac4b7138cfa9b7;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 655b6e9..d9acdd5 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -639,6 +639,17 @@ bug.~:@>")
         (name (pop-stack)))
     (setf (fdefinition name) fn)))
 
+(define-fop (fop-note-debug-source 174 :pushp nil)
+  (warn "~@<FOP-NOTE-DEBUG-SOURCE seen in ordinary load (not cold load) -- ~
+very strange!  If you didn't do something to cause this, please report it as ~
+a bug.~@:>")
+  ;; as with COLD-FSET above, we are going to be lenient with coming
+  ;; across this fop in a warm SBCL.
+  (let ((debug-source (pop-stack)))
+    (setf (sb!c::debug-source-compiled debug-source) (get-universal-time)
+          (sb!c::debug-source-created debug-source)
+          (file-write-date (sb!c::debug-source-namestring debug-source)))))
+
 ;;; Modify a slot in a CONSTANTS object.
 (define-cloned-fops (fop-alter-code 140 :pushp nil) (fop-byte-alter-code 141)
   (let ((value (pop-stack))