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

Diff of /slime/swank-ecl.lisp

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

revision 1.49 by sboukarev, Fri Nov 13 19:55:04 2009 UTC revision 1.50 by sboukarev, Sat Dec 19 14:56:06 2009 UTC
# Line 305  Line 305 
305       (declare (ignore position))       (declare (ignore position))
306       (if file (is-swank-source-p file)))))       (if file (is-swank-source-p file)))))
307    
308  #+#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)  #+#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
309  (defmacro find-ihs-top (x)  (defmacro find-ihs-top (x)
310    (if (< ext:+ecl-version-number+ 90601)    (if (< ext:+ecl-version-number+ 90601)
311        `(si::ihs-top ,x)        `(si::ihs-top ,x)
312        '(si::ihs-top)))        '(si::ihs-top)))
313    
314  #-#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)  #-#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
315  (defmacro find-ihs-top (x)  (defmacro find-ihs-top (x)
316    `(si::ihs-top ,x))    `(si::ihs-top ,x))
317    
# Line 379  Line 379 
379    (let ((functions '())    (let ((functions '())
380          (blocks '())          (blocks '())
381          (variables '()))          (variables '()))
382      #+#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)      #+#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
383      #.(if (< ext:+ecl-version-number+ 90601)      #.(if (< ext:+ecl-version-number+ 90601)
384          '(setf frame (second frame))          '(setf frame (second frame))
385          '(setf frame (si::decode-ihs-env (second frame))))          '(setf frame (si::decode-ihs-env (second frame))))
386      #-#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)      #-#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
387      '(setf frame (second frame))      '(setf frame (second frame))
388      (dolist (record frame)      (dolist (record frame)
389        (let* ((record0 (car record))        (let* ((record0 (car record))
# Line 493  Line 493 
493                `(:snippet                `(:snippet
494                  ,(with-open-file (s file)                  ,(with-open-file (s file)
495    
496                                   #+#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)                                   #+#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
497                                   (if (< ext:+ecl-version-number+ 90601)                                   (if (< ext:+ecl-version-number+ 90601)
498                                       (skip-toplevel-forms pos s)                                       (skip-toplevel-forms pos s)
499                                       (file-position s pos))                                       (file-position s pos))
500                                   #-#.(swank-backend::with-symbol '+ECL-VERSION-NUMBER+ 'EXT)                                   #-#.(swank-backend:with-symbol '+ECL-VERSION-NUMBER+ 'EXT)
501                                   (skip-toplevel-forms pos s)                                   (skip-toplevel-forms pos s)
502                                   (skip-comments-and-whitespace s)                                   (skip-comments-and-whitespace s)
503                                   (read-snippet s))))))))                                   (read-snippet s))))))))

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5