Changeset 3967


Ignore:
Timestamp:
Mar 30, 2006, 10:18:31 AM (15 years ago)
Author:
gb
Message:

Comments and formatting changes only.

Location:
trunk/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-dcode.lisp

    r3898 r3967  
    864864(defun compute-1st-arg-combined-method (gf arg &optional
    865865                                           (wrapper (arg-wrapper arg)))
    866   (declare (resident))
    867   ;#-bccl (setq gf (require-type gf 'standard-generic-function)) 
    868866  (let* ((methods (%gf-dispatch-table-methods (%gf-dispatch-table gf)))
    869867         (cpl (%inited-class-cpl (%wrapper-class wrapper)))
     
    871869         applicable-methods eql-methods specializer)
    872870    (dolist (method methods)
    873       ;#-bccl (setq method (require-type method 'standard-method))   ; for debugging.
    874871      (setq specializer (%car (%method.specializers method)))
    875872      (if (typep specializer 'eql-specializer)
     
    14201417      (when (>= argnum args-len)(signal-program-error "Too few args to ~s." (%method-gf (cddr stuff))))
    14211418      (let* ((arg (%lexpr-ref args args-len argnum))
    1422              (thing (assq arg (cadr stuff)))) ; are these things methods or method-functions? - fns   
     1419             (thing (assq arg (cadr stuff))))
    14231420        (if thing
    14241421          (%apply-lexpr (cdr thing) args)
  • trunk/ccl/level-1/l1-files.lisp

    r3807 r3967  
    452452        (multiple-value-setq (version end-pos) (pathname-version-sstr sstr start-pos end-pos)))
    453453      (multiple-value-setq (type end-pos) (pathname-type-sstr sstr start-pos end-pos))
    454       ; now everything else is the name
     454      ;; now everything else is the name
    455455      (unless (eq start-pos end-pos)
    456456        (setq name (%std-name-component (%substr sstr start-pos end-pos))))
     
    12001200(defun module-provide-search-path (module)
    12011201  ;; (format *debug-io* "trying module-provide-search-path~%")
    1202    (let* ((module-name (string module))
    1203           (pathname (find-module-pathnames module-name)))
    1204      (when pathname
    1205        (if (consp pathname)
    1206            (dolist (path pathname) (load path))
    1207          (load pathname))
    1208        (provide module))))
     1202  (let* ((module-name (string module))
     1203         (pathname (find-module-pathnames module-name)))
     1204    (when pathname
     1205      (if (consp pathname)
     1206        (dolist (path pathname) (load path))
     1207        (load pathname))
     1208      (provide module))))
    12091209
    12101210(defun require (module &optional pathname)
Note: See TracChangeset for help on using the changeset viewer.