/[cmucl]/src/hemlock/lispmode.lisp
ViewVC logotype

Diff of /src/hemlock/lispmode.lisp

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

revision 1.1.1.17 by ram, Thu May 13 20:55:45 1993 UTC revision 1.11 by gerd, Wed Jun 18 09:23:09 2003 UTC
# Line 3  Line 3 
3  ;;; **********************************************************************  ;;; **********************************************************************
4  ;;; This code was written as part of the CMU Common Lisp project at  ;;; This code was written as part of the CMU Common Lisp project at
5  ;;; Carnegie Mellon University, and has been placed in the public domain.  ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact  
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.  
6  ;;;  ;;;
7  (ext:file-comment  (ext:file-comment
8    "$Header$")    "$Header$")
# Line 849  Line 847 
847  (defindent "compiler-let" 1)  (defindent "compiler-let" 1)
848  (defindent "ctypecase" 1)  (defindent "ctypecase" 1)
849  (defindent "defconstant" 1)  (defindent "defconstant" 1)
850    (defindent "define-compiler-macro" 2)
851  (defindent "define-setf-method" 2)  (defindent "define-setf-method" 2)
852    (defindent "destructuring-bind" 2)
853  (defindent "defmacro" 2)  (defindent "defmacro" 2)
854    (defindent "defpackage" 1)
855  (defindent "defparameter" 1)  (defindent "defparameter" 1)
856  (defindent "defstruct" 1)  (defindent "defstruct" 1)
857  (defindent "deftype" 2)  (defindent "deftype" 2)
# Line 871  Line 872 
872  (defindent "lambda" 1)  (defindent "lambda" 1)
873  (defindent "let" 1)  (defindent "let" 1)
874  (defindent "let*" 1)  (defindent "let*" 1)
875    (defindent "locally" 0)
876  (defindent "loop" 0)  (defindent "loop" 0)
877  (defindent "macrolet" 1)  (defindent "macrolet" 1)
878  (defindent "multiple-value-bind" 2)  (defindent "multiple-value-bind" 2)
# Line 888  Line 890 
890  (defindent "with-open-file" 1)  (defindent "with-open-file" 1)
891  (defindent "with-open-stream" 1)  (defindent "with-open-stream" 1)
892  (defindent "with-output-to-string" 1)  (defindent "with-output-to-string" 1)
893    (defindent "with-package-iterator" 1)
894    
895  ;;; Error/condition system forms.  ;;; Error/condition system forms.
896  ;;;  ;;;
# Line 963  Line 966 
966  ;;; CLOS forms.  ;;; CLOS forms.
967  ;;;  ;;;
968  (defindent "with-slots" 1)  (defindent "with-slots" 1)
969  (defindent "with-slots*" 2)  (defindent "with-slots*" 2) ; obsolete
970  (defindent "with-accessors*" 2)  (defindent "with-accessors" 2)
971    (defindent "with-accessors*" 2) ; obsolete
972  (defindent "defclass" 2)  (defindent "defclass" 2)
973    (defindent "print-unreadable-object" 1)
974    
975  ;;; System forms.  ;;; System forms.
976  ;;;  ;;;
977  (defindent "alien-bind" 1)  (defindent "alien-bind" 1)
978  (defindent "def-c-record" 1)  (defindent "def-c-record" 1)
979  (defindent "defrecord" 1)  (defindent "defrecord" 1)
980    (defindent "add-fd-handler" 2)
981    (defindent "with-fd-handler" 1)
982    
983  ;;; Wire forms.  ;;; Wire forms.
984  (defindent "remote" 1)  (defindent "remote" 1)
# Line 981  Line 988 
988  (defindent "remote-value-bind" 3)  (defindent "remote-value-bind" 3)
989  (defindent "wire:remote-value-bind" 3)  (defindent "wire:remote-value-bind" 3)
990    
991    ;;; Multiprocessing forms.
992    (defindent "with-lock-held" 1)
993    (defindent "process-wait" 1)
994    
995    ;;; Alien forms.
996    (defindent "with-alien" 1)
997    
998    
999  ;;;; Indentation.  ;;;; Indentation.
# Line 1687  Line 1700 
1700      (defhvar "Current Package"      (defhvar "Current Package"
1701        "The package used for evaluation of Lisp in this buffer."        "The package used for evaluation of Lisp in this buffer."
1702        :buffer buffer        :buffer buffer
1703        :value "USER")))        :value "CL-USER")))
1704    
1705    
1706    

Legend:
Removed from v.1.1.1.17  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5