Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r10938 r11089  
    986986                                               (the fixnum (afunc-bits afunc))))
    987987              nil)))))))
    988                      
     988
     989
    989990;;; Process entries involving variables bound to other variables at
    990991;;; the end of a binding construct.  Each entry is of the form
     
    20022003        (push warning (afunc-warnings p))))))
    20032004
    2004 
    20052005(defun nx1-type-intersect (form type1 type2 &optional env)
    20062006  (declare (ignore env)) ; use it when deftype records info in env.  Fix this then ...
     
    20642064        (list (%nx1-operator typed-form) type form)))))
    20652065
    2066 ; Wimpy.
     2066;;; Wimpy.
    20672067(defun nx1-call-result-type (sym &optional (args nil args-p) spread-p)
    20682068  (let* ((env *nx-lexical-environment*)
     
    27542754    nunion nset-intersection)
    27552755  "Names of functions whos result(s) should ordinarily be used, because of their side-effects or lack of them.")
    2756 
Note: See TracChangeset for help on using the changeset viewer.