Changeset 14476


Ignore:
Timestamp:
Dec 9, 2010, 9:00:41 PM (9 years ago)
Author:
gz
Message:

Fix use of nx-t/nx-null in decomp-form. Tweak some debug code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r14417 r14476  
    730730(defmacro dbg-assert (form)
    731731  #-debug-code-notes (declare (ignore form))
    732   #+debug-code-notes `(assert ,form))
     732  #+debug-code-notes `(unless ,form (cerror "Ignore assertion failure"
     733                                            "Assertion failure: ~s" ',form)))
    733734
    734735(defvar *acode-right-margin* 120)
     
    757758               ;; note and not a code note, so need to check for code note explicitly.
    758759               (when (code-note-p note)
    759                  (dbg-assert (null (gethash form form->note)))
     760                 (dbg-assert (eq note (gethash form form->note note)))
    760761                 (dbg-assert (null (code-note-acode-range note)))
    761762                 (setf (gethash form form->note) note)))
     
    838839
    839840(defun decomp-form (acode)
    840   (cond ((nx-null acode) t)
    841         ((nx-t acode) nil)
     841  (cond ((nx-t acode) t)
     842        ((nx-null acode) nil)
    842843        (t (let* ((op (car acode))
    843844                  (num (length *next-nx-operators*))
Note: See TracChangeset for help on using the changeset viewer.