Changeset 8934


Ignore:
Timestamp:
Mar 29, 2008, 1:47:38 PM (11 years ago)
Author:
mb
Message:

Fix previous commit.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/source-files.lisp

    r8933 r8934  
    483483                    (source-note-file-name source-note))
    484484      into other-definitions
    485     finally (return (cond
    486                       ((and method-definitions other-definitions)
    487                        (cons (cons 'method method-definitions)
    488                              other-definitions))
    489                       (method-definitions (cons 'method method-definitions))
    490                       (other-definitions
    491                        (if (and (= 1 (length other-definitions))
    492                                 (member (car (first other-definitions)) '(function compiler-macro macro)))
    493                          (cdr (first other-definitions))
    494                          other-definitions))))))
     485    finally (return (values (cond
     486                              ((and method-definitions other-definitions)
     487                               (cons (cons 'method method-definitions)
     488                                     other-definitions))
     489                              (method-definitions (cons 'method method-definitions))
     490                              (other-definitions
     491                               (if (and (= 1 (length other-definitions))
     492                                        (member (car (first other-definitions)) '(function compiler-macro macro)))
     493                                 (cdr (first other-definitions))
     494                                 other-definitions)))
     495                            (if (or method-definitions other-definitions)
     496                              t
     497                              nil)))))
    495498
    496499;;;; * Done loading the r-s-f stuff. Do some housekeeping.
Note: See TracChangeset for help on using the changeset viewer.