/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.122 by lgorrie, Sat Mar 12 01:50:15 2005 UTC revision 1.123 by lgorrie, Sun Mar 13 02:57:45 2005 UTC
# Line 361  This is useful when debugging the defini Line 361  This is useful when debugging the defini
361           (position (sb-introspect:definition-source-character-offset def))           (position (sb-introspect:definition-source-character-offset def))
362           (stamp           (stamp
363            ;; FIXME: Symbol doesn't exist in released SBCL yet.            ;; FIXME: Symbol doesn't exist in released SBCL yet.
364            (let ((sym (find-symbol "DEFINITION-SOURCE-CREATED"            (let ((sym (find-symbol "DEFINITION-SOURCE-FILE-WRITE-DATE"
365                                    (find-package "SB-INTROSPECT"))))                                    (find-package "SB-INTROSPECT"))))
366              (when sym (funcall sym def)))))              (when sym (funcall sym def)))))
367      (unless pathname      (unless pathname

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

  ViewVC Help
Powered by ViewVC 1.1.5