Changeset 10161


Ignore:
Timestamp:
Jul 19, 2008, 10:47:41 PM (11 years ago)
Author:
rme
Message:

Update conditionalization of BUG.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-misc.lisp

    r9879 r10161  
    122122(defun bug (arg)
    123123  (if (typep arg 'simple-base-string)
    124     #+x8664-target
     124    #+x86-target
    125125    (debug-trap-with-string arg)
    126     #-x8664-target
     126    #-x86-target
    127127    (let* ((len (length arg)))
    128128      (%stack-block ((buf (1+ len)))
Note: See TracChangeset for help on using the changeset viewer.