Changeset 11586


Ignore:
Timestamp:
Jan 6, 2009, 9:14:00 AM (11 years ago)
Author:
gb
Message:

Don't even pretend to support :MONITOR-EXCEPTION-PORTS in NX1-FF-CALL-INTERNAL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx1.lisp

    r11373 r11586  
    13771377         (vals ())
    13781378         (register-spec-seen nil)
    1379          (monitor (eq (car arg-specs-and-result-spec) :monitor-exception-ports))
    13801379         (arg-specs (butlast arg-specs-and-result-spec))
    13811380         (result-spec (car (last arg-specs-and-result-spec))))
    1382     (if monitor
    1383       (setq arg-specs (cdr arg-specs)))
    13841381    (unless (evenp (length arg-specs))
    13851382      (error "odd number of arg-specs"))
     
    14091406                (mapcar #'nx1-form (nreverse vals))
    14101407                result-spec
    1411                 monitor)))
     1408                nil)))
    14121409 
    14131410(defnx1 nx1-block block (blockname &body forms)
Note: See TracChangeset for help on using the changeset viewer.