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/rompsite.lisp

    r7993 r8029  
    276276   function was defined in.  If it was not defined in some file, nil is
    277277   returned."
    278   #+CMU
    279   (flet ((frob (code)
    280            (let ((info (kernel:%code-debug-info code)))
    281              (when info
    282                (let ((sources (c::debug-info-source info)))
    283                  (when sources
    284                    (let ((source (car sources)))
    285                      (when (eq (c::debug-source-from source) :file)
    286                        (c::debug-source-name source)))))))))
     278  (flet ((true-namestring (path) (namestring (truename path))))
    287279    (typecase function
    288       (symbol (fun-defined-from-pathname (fdefinition function)))
    289       (kernel:byte-closure
    290        (fun-defined-from-pathname (kernel:byte-closure-function function)))
    291       (kernel:byte-function
    292        (frob (c::byte-function-component function)))
    293       (function
    294        (frob (kernel:function-code-header (kernel:%function-self function))))
    295       (t nil)))
    296     #+openmcl
    297     (flet ((true-namestring (path) (namestring (truename path))))
    298       (typecase function
    299         (function (fun-defined-from-pathname (ccl::function-name function)))
    300         (symbol (let* ((info (ccl::%source-files function)))
    301                   (if (atom info)
    302                     (true-namestring info)
    303                     (let* ((finfo (assq 'function info)))
    304                       (when finfo
    305                         (true-namestring
    306                          (if (atom finfo)
    307                            finfo
    308                            (car finfo)))))))))))
     280      (function (fun-defined-from-pathname (ccl:function-name function)))
     281      (symbol (let* ((info (ccl::%source-files function)))
     282                (if (atom info)
     283                  (true-namestring info)
     284                  (let* ((finfo (assq 'function info)))
     285                    (when finfo
     286                      (true-namestring
     287                       (if (atom finfo)
     288                         finfo
     289                         (car finfo)))))))))))
    309290
    310291
Note: See TracChangeset for help on using the changeset viewer.