Changeset 9181


Ignore:
Timestamp:
05/15/05 21:44:58 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

Location:
trunk/j/src/org/armedbear/lisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r9171 r9181  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.169 2005-05-14 19:01:08 piso Exp $
     4;;; $Id: clos.lisp,v 1.170 2005-05-15 21:44:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    12091209
    12101210(defun subclassp (c1 c2)
    1211   (not (null (find c2 (class-precedence-list c1)))))
     1211  (dolist (class (class-precedence-list c1) nil)
     1212    (when (eq class c2)
     1213      (return t))))
    12121214
    12131215(defun methods-contain-eql-specializer-p (methods)
  • trunk/j/src/org/armedbear/lisp/dolist.lisp

    r9117 r9181  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: dolist.lisp,v 1.5 2005-05-09 18:14:44 piso Exp $
     4;;; $Id: dolist.lisp,v 1.6 2005-05-15 21:43:51 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3939            ,top
    4040            (unless (endp ,list)
    41               (let ((,var (car ,list)))
     41              (let ((,var (%car ,list)))
    4242                ,@decls
    43                 (setq ,list (cdr ,list))
     43                (setq ,list (%cdr ,list))
    4444                (tagbody ,@forms))
    4545              (go ,top))))
  • trunk/j/src/org/armedbear/lisp/known-functions.lisp

    r9175 r9181  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: known-functions.lisp,v 1.4 2005-05-15 16:16:46 piso Exp $
     4;;; $Id: known-functions.lisp,v 1.5 2005-05-15 21:44:18 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424
    2525(declaim (ftype (function * list)
    26                 backq-list backq-list* backq-append backq-nconc))
     26                backq-list backq-list* backq-append backq-nconc
     27                class-precedence-list))
    2728
    2829(declaim (ftype (function * cons) backq-cons))
Note: See TracChangeset for help on using the changeset viewer.