Ignore:
Timestamp:
Jan 8, 2008, 8:39:43 PM (13 years ago)
Author:
gz
Message:

Assume 1 special arg for any form starting with "with-". Remove a bunch of
now-redundant defindent's for well-behaved with-xxx forms.

Remove some unteresting #+cmu code, change #+openmcl => #+clozure in a few places.

Make alpha value be optional in gui::color-values-to-nscolor

Remove bindings-gb.lisp (moving the two bindings it contained into
bindings.lisp).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/lispmode.lisp

    r7929 r8029  
    818818  :value 2)
    819819
     820(defhvar "Indent With-anything"
     821  "This is the number of special arguments implicitly assumed to be supplied
     822   in calls to functions whose names begin with \"WITH-\". If set to NIL, this
     823   feature is disabled."
     824  :value 1)
     825
    820826(defvar *special-forms* (make-hash-table :test #'equal))
    821827
     
    833839;;; Hemlock forms.
    834840;;;
    835 (defindent "with-mark" 1)
    836 (defindent "with-random-typeout" 1)
    837 (defindent "with-pop-up-display" 1)
    838841(defindent "defhvar" 1)
    839842(defindent "hlet" 1)
     
    841844(defindent "defattribute" 1)
    842845(defindent "command-case" 1)
    843 (defindent "with-input-from-region" 1)
    844 (defindent "with-output-to-mark" 1)
    845846(defindent "do-strings" 1)
    846847(defindent "save-for-undo" 1)
     
    848849(defindent "do-headers-buffers" 1)
    849850(defindent "do-headers-lines" 1)
    850 (defindent "with-headers-mark" 1)
    851851(defindent "frob" 1) ;cover silly FLET and MACROLET names for Rob and Bill.
    852 (defindent "with-writable-buffer" 1)
    853852
    854853;;; Common Lisp forms.
     
    901900(defindent "unwind-protect" 1)
    902901(defindent "when" 1)
    903 (defindent "with-input-from-string" 1)
    904 (defindent "with-open-file" 1)
    905 (defindent "with-open-stream" 1)
    906 (defindent "with-output-to-string" 1)
    907 (defindent "with-package-iterator" 1)
    908902
    909903;;; Error/condition system forms.
     
    914908(defindent "restart-bind" 1)
    915909(defindent "restart-case" 1)
    916 (defindent "with-simple-restart" 1)
    917910;;; These are for RESTART-CASE branch formatting.
    918911(defindent "store-value" 1)
     
    966959;;; CLOS forms.
    967960;;;
    968 (defindent "with-slots" 1)
    969961(defindent "with-accessors" 2)
    970962(defindent "defclass" 2)
     
    978970
    979971;;; Multiprocessing forms.
    980 (defindent "with-lock-grabbed" 1)
    981972(defindent "process-wait" 1)
    982973
     
    10201011                                 (and (> (length fname) 2)
    10211012                                      (string= fname "DEF" :end1 3)
    1022                                       (value indent-defanything)))))
     1013                                      (value indent-defanything))
     1014                                 (and (> (length fname) 4)
     1015                                      (string= fname "WITH-" :end1 5)
     1016                                      (value indent-with-anything)))))
    10231017          (declare (simple-string fname))
    10241018          ;; Now that we have the form name, did it have special syntax?
Note: See TracChangeset for help on using the changeset viewer.