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

Diff of /slime/swank.lisp

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

revision 1.159 by lgorrie, Mon Apr 5 07:44:02 2004 UTC revision 1.160 by lgorrie, Tue Apr 6 07:46:00 2004 UTC
# Line 1568  belonging to the buffer package." Line 1568  belonging to the buffer package."
1568  The form is to be used as the `common-lisp-indent-function' property  The form is to be used as the `common-lisp-indent-function' property
1569  in Emacs."  in Emacs."
1570    (if (macro-function symbol)    (if (macro-function symbol)
1571        (macro-indentation (read-arglist (ignore-errors (arglist symbol))))        (macro-indentation (ignore-errors (read-arglist (arglist symbol))))
1572        nil))        nil))
1573    
1574  (defun macro-indentation (arglist)  (defun macro-indentation (arglist)
1575    (position '&body (remove '&whole arglist)))    (if (well-formed-list-p arglist)
1576          (position '&body (remove '&whole arglist))
1577          nil))
1578    
1579  (defun read-arglist (args)  (defun read-arglist (args)
1580    (etypecase args    (etypecase args
# Line 1582  in Emacs." Line 1584  in Emacs."
1584       (with-temp-package *package*       (with-temp-package *package*
1585         (read-from-string args)))))         (read-from-string args)))))
1586    
1587    (defun well-formed-list-p (list)
1588      "Is LIST a proper list terminated by NIL?"
1589      (typecase list
1590        (null t)
1591        (cons (well-formed-list-p (cdr list)))
1592        (t    nil)))
1593    
1594  (defun print-indentation-lossage (&optional (stream *standard-output*))  (defun print-indentation-lossage (&optional (stream *standard-output*))
1595    "Return the list of symbols whose indentation styles collide incompatibly.    "Return the list of symbols whose indentation styles collide incompatibly.
1596  Collisions are caused because package information is ignored."  Collisions are caused because package information is ignored."

Legend:
Removed from v.1.159  
changed lines
  Added in v.1.160

  ViewVC Help
Powered by ViewVC 1.1.5