Changeset 12052


Ignore:
Timestamp:
May 14, 2009, 11:47:22 AM (10 years ago)
Author:
gz
Message:

More undefined function warnings (trunk r12033/r12034/r12035/r12036)

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

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

    r12050 r12052  
    273273;; Cross-referencing
    274274(defun nx-record-xref-info (relation name)
    275   (when (fboundp '%add-xref-entry)
    276     (funcall '%add-xref-entry relation *nx-cur-func-name* name)))
     275  (let* ((axe (fboundp '%add-xref-entry)))
     276    (when axe
     277      (funcall axe relation *nx-cur-func-name* name))))
    277278
    278279
     
    19381939
    19391940;;; Wimpy.
    1940 (defun nx1-call-result-type (sym &optional (args nil args-p) spread-p)
     1941(defun nx1-call-result-type (sym &optional (args nil args-p) spread-p global-only)
    19411942  (let* ((env *nx-lexical-environment*)
    19421943         (global-def nil)
     
    19481949               (symbolp sym)
    19491950               (not (find-ftype-decl sym env))
    1950                (not (setq lexenv-def (nth-value 1 (nx-lexical-finfo sym))))
     1951               (or global-only
     1952                   (not (setq lexenv-def (nth-value 1 (nx-lexical-finfo sym)))))
    19511953               (null (setq defenv-def (retrieve-environment-function-info sym env)))
    19521954               (neq sym *nx-global-function-name*)
     
    19581960    (when (and args-p
    19591961               (not spread-p)
    1960                (setq somedef (cdr (assq sym *format-arg-functions*)))
     1962               (setq somedef (unless lexenv-def (cdr (assq sym *format-arg-functions*))))
    19611963               (setq somedef (nthcdr somedef args))
    19621964               (stringp (car somedef)))
  • branches/working-0711/ccl/compiler/nx1.lisp

    r12048 r12052  
    11501150    (setq spread-p nil args (butlast args)))
    11511151  (let ((name (nx1-func-name fn))
    1152         (global nil))
     1152        (global nil)
     1153        (result-type t))
     1154    (when name
     1155      (setq global (eq (%car fn) 'quote)
     1156            result-type (nx1-call-result-type name args spread-p global))
     1157      (if global (setq name (nx1-form fn))))
    11531158    (if name
    1154       (if (eq (%car fn) 'quote)
    1155         (setq global t name (nx1-form fn))
     1159      (unless global
    11561160        (let*  ((afunc (nth-value 1 (nx-lexical-finfo name))))
    11571161          (when (and afunc (eq afunc *nx-call-next-method-function*))
     
    11621166                         args (cons (var-name *nx-next-method-var*) args)))))
    11631167      (setq name (nx1-form fn)))
    1164     (nx1-call name args spread-p global)))
     1168    (let* ((form (nx1-call name args spread-p global)))
     1169      (if (eq result-type t)
     1170        form
     1171        (make-acode (%nx1-operator typed-form) result-type form)))))
    11651172
    11661173(defnx1 nx1-%apply-lexpr ((%apply-lexpr)) (&whole call fn arg &rest args &aux (orig args))
     
    14931500                       (setq name (nx-need-function-name name))))))
    14941501      (nx1-form (cons name args))  ; This picks up call-next-method evil.
    1495       (nx1-call (nx1-form func) args nil t))))
     1502      (let* ((result-type t))
     1503        (when (and (quoted-form-p func)
     1504                   (or (typep (setq name (nx-unquote func)) 'symbol)
     1505                       (setq name (valid-function-name-p name))))
     1506          (setq result-type (nx1-call-result-type name args nil t)))
     1507        (let* ((form (nx1-call (nx1-form func) args nil t)))
     1508          (if (eq result-type t)
     1509            form
     1510            (make-acode (%nx1-operator typed-form) result-type form)))))))
    14961511
    14971512(defnx1 nx1-multiple-value-call multiple-value-call (value-form &rest args)
  • branches/working-0711/ccl/level-1/l1-sockets.lisp

    r11778 r12052  
    723723      (fd-close fd))))
    724724
     725(defun make-datagram-file-socket (&rest keys)
     726  (declare (ignore keys))
     727  (error "Datagram file sockets aren't implemented."))
     728
     729
    725730(defun %socket-connect (fd addr addrlen &optional timeout-in-milliseconds)
    726731  (let* ((err (c_connect fd addr addrlen timeout-in-milliseconds)))
Note: See TracChangeset for help on using the changeset viewer.