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

Diff of /slime/swank.lisp

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

revision 1.647 by trittweiler, Sun May 17 19:12:53 2009 UTC revision 1.648 by trittweiler, Thu May 28 15:42:47 2009 UTC
# Line 363  Do not set this to T unless you want to Line 363  Do not set this to T unless you want to
363           (close-connection ,var           (close-connection ,var
364                             (swank-error.condition condition)                             (swank-error.condition condition)
365                             (swank-error.backtrace condition)))))))                             (swank-error.backtrace condition)))))))
366    
367  (defmacro with-panic-handler ((connection) &body body)  (defmacro with-panic-handler ((connection) &body body)
368    (let ((var (gensym)))    (let ((var (gensym)))
369    `(let ((,var ,connection))    `(let ((,var ,connection))
# Line 1996  considered to represent a symbol interna Line 1996  considered to represent a symbol interna
1996          (backslash nil)          (backslash nil)
1997          (vertical nil)          (vertical nil)
1998          (internp nil))          (internp nil))
1999      (loop for char across string      (loop for char across string do
2000         do (cond            (cond
2001              (backslash              (backslash
2002               (vector-push-extend char token)               (vector-push-extend char token)
2003               (setq backslash nil))               (setq backslash nil))
2004              ((char= char #\\) ; Quotes next character, even within |...|              ((char= char #\\) ; Quotes next character, even within |...|
2005               (setq backslash t))               (setq backslash t))
2006              ((char= char #\|)              ((char= char #\|)
2007               (setq vertical t))               (setq vertical (not vertical)))
2008              (vertical              (vertical
2009               (vector-push-extend char token))               (vector-push-extend char token))
2010              ((char= char #\:)              ((char= char #\:)
2011               (if package               (cond ((and package internp)
2012                   (setq internp t)                      (error "More than two colons in ~S" string))
2013                   (setq package token                     (package
2014                         token (make-array (length string)                      (setq internp t))
2015                                           :element-type 'character                     (t
2016                                           :fill-pointer 0))))                      (setq package token
2017                              token (make-array (length string)
2018                                                :element-type 'character
2019                                                :fill-pointer 0)))))
2020              (t              (t
2021               (vector-push-extend (casify-char char) token))))               (vector-push-extend (casify-char char) token))))
2022        (when vertical
2023          (error "Unclosed vertical bar in ~S" string))
2024      (values token package (or (not package) internp))))      (values token package (or (not package) internp))))
2025    
2026  (defun untokenize-symbol (package-name internal-p symbol-name)  (defun untokenize-symbol (package-name internal-p symbol-name)

Legend:
Removed from v.1.647  
changed lines
  Added in v.1.648

  ViewVC Help
Powered by ViewVC 1.1.5