Changeset 10339


Ignore:
Timestamp:
11/04/05 00:28:14 (16 years ago)
Author:
piso
Message:

SYS:CLASS-PRECEDENCE-LIST => SYS:%CLASS-PRECEDENCE-LIST

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

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/known-functions.lisp

    r10279 r10339  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: known-functions.lisp,v 1.27 2005-10-30 01:19:03 piso Exp $
     4;;; $Id: known-functions.lisp,v 1.28 2005-11-04 00:27:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3030(declaim (ftype (function * list)
    3131                backq-list backq-list* backq-append backq-nconc
    32                 class-precedence-list))
     32                %class-precedence-list))
    3333
    3434(declaim (ftype (function * cons) backq-cons))
  • trunk/j/src/org/armedbear/lisp/subtypep.lisp

    r9640 r10339  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: subtypep.lisp,v 1.67 2005-07-12 02:34:03 piso Exp $
     4;;; $Id: subtypep.lisp,v 1.68 2005-11-04 00:28:14 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    487487                                  (and (symbolp type2) (find-class type2 nil)))))
    488488        (return-from %subtypep
    489                      (values (if (member class2 (class-precedence-list class1)) t nil) t)))
     489                     (values (if (member class2 (%class-precedence-list class1)) t nil) t)))
    490490      (when (or classp-1 classp-2)
    491491        (let ((t1 (if classp-1 (%class-name type1) type1))
Note: See TracChangeset for help on using the changeset viewer.