ViewVC logotype

Log of /src/pcl/defs.lisp

Parent Directory Parent Directory | Revision Log Revision Log

Links to HEAD: (view) (annotate)
Links to intl-branch: (view) (annotate)
Sticky Tag:

Revision - (view) (annotate) - [select for diffs]
Sat Feb 13 01:28:04 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-2010-03-18-1300, intl-branch-working-2010-02-19-1000
Changes since +7 -7 lines
Diff to previous , to branch point 1.44 , to next main 1.45
Mark translatable strings; regenerate cmucl.pot and cmucl.po

Revision - (view) (annotate) - [select for diffs]
Mon Feb 8 17:15:53 2010 UTC (4 years, 2 months ago) by rtoy
Branch: intl-branch
CVS Tags: intl-branch-working-2010-02-11-1000
Changes since 1.44: +1 -0 lines
Diff to previous 1.44
Add (intl:textdomain "cmucl") to the files to set the textdomain.

Revision 1.44 - (view) (annotate) - [select for diffs]
Sat May 24 14:41:39 2008 UTC (5 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: RELEASE_19f, RELEASE_20a, amd64-dd-start, intl-2-branch-base, intl-branch-base, label-2009-03-16, label-2009-03-25, merge-sse2-packed, merge-with-19f, merged-unicode-utf16-extfmt-2009-06-11, portable-clx-base, portable-clx-import-2009-06-16, pre-merge-intl-branch, release-19f-base, release-19f-pre1, release-20a-base, release-20a-pre1, snapshot-2008-06, snapshot-2008-07, snapshot-2008-08, snapshot-2008-09, snapshot-2008-10, snapshot-2008-11, snapshot-2008-12, snapshot-2009-01, snapshot-2009-02, snapshot-2009-04, snapshot-2009-05, snapshot-2009-07, snapshot-2009-08, snapshot-2009-11, snapshot-2009-12, snapshot-2010-01, snapshot-2010-02, snapshot-2010-03, sse2-base, sse2-checkpoint-2008-10-01, sse2-merge-with-2008-10, sse2-merge-with-2008-11, sse2-packed-2008-11-12, sse2-packed-base, unicode-string-buffer-base, unicode-string-buffer-impl-base
Branch point for: RELEASE-19F-BRANCH, RELEASE-20A-BRANCH, amd64-dd-branch, intl-2-branch, intl-branch, portable-clx-branch, sse2-branch, sse2-packed-branch, unicode-string-buffer-branch, unicode-string-buffer-impl-branch
Changes since 1.43: +3 -0 lines
Diff to previous 1.43
Fix issue with slot-value-using-class and

See cmucl-imp, 2008/04/03, PCL bug?.  Bug and link to solution
provided by Hans Hubner.  Solution based on sbcl patch

Here's the test case:

(in-package :cl-user)

(use-package :pcl)

(defclass test-metaclass (standard-class)

(defmethod validate-superclass ((sub test-metaclass) (super standard-class))

(defmethod (setf slot-value-using-class) :before (newval (class test-metaclass) object slotd)
  (print 'setf-slot-value-using-class-before))

(defmethod (setf slot-value-using-class) :after (newval (class test-metaclass) object slotd)
  (print 'setf-slot-value-using-class-after))

(defclass test-class ()
  (:metaclass test-metaclass))

Revision 1.43 - (view) (annotate) - [select for diffs]
Wed Jun 11 19:17:25 2003 UTC (10 years, 10 months ago) by gerd
Branch: MAIN
CVS Tags: amd64-merge-start, double-double-array-base, double-double-array-checkpoint, double-double-base, double-double-init-%make-sparc, double-double-init-checkpoint-1, double-double-init-ppc, double-double-init-sparc, double-double-init-sparc-2, double-double-init-x86, double-double-irrat-end, double-double-irrat-start, double-double-reader-base, double-double-reader-checkpoint-1, double-double-sparc-checkpoint-1, dynamic-extent-base, lisp-executable-base, mod-arith-base, ppc_gencgc_snap_2005-05-14, ppc_gencgc_snap_2005-12-17, ppc_gencgc_snap_2006-01-06, pre-telent-clx, prm-before-macosx-merge-tag, release-19a, release-19a-base, release-19a-pre1, release-19a-pre2, release-19a-pre3, release-19b-base, release-19b-pre1, release-19b-pre2, release-19c, release-19c-base, release-19c-pre1, release-19d, release-19d-base, release-19d-pre1, release-19d-pre2, release-19e, release-19e-base, release-19e-pre1, release-19e-pre2, snapshot-2003-10, snapshot-2003-11, snapshot-2003-12, snapshot-2004-04, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, snapshot-2004-08, snapshot-2004-09, snapshot-2004-10, snapshot-2004-11, snapshot-2004-12, snapshot-2005-01, snapshot-2005-02, snapshot-2005-03, snapshot-2005-04, snapshot-2005-05, snapshot-2005-06, snapshot-2005-07, snapshot-2005-08, snapshot-2005-09, snapshot-2005-10, snapshot-2005-11, snapshot-2005-12, snapshot-2006-01, snapshot-2006-02, snapshot-2006-03, snapshot-2006-04, snapshot-2006-05, snapshot-2006-06, snapshot-2006-07, snapshot-2006-08, snapshot-2006-09, snapshot-2006-10, snapshot-2006-11, snapshot-2006-12, snapshot-2007-01, snapshot-2007-02, snapshot-2007-03, snapshot-2007-04, snapshot-2007-05, snapshot-2007-06, snapshot-2007-07, snapshot-2007-08, snapshot-2007-09, snapshot-2007-10, snapshot-2007-11, snapshot-2007-12, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, snapshot-2008-04, snapshot-2008-05, sparc_gencgc, sparc_gencgc_merge, unicode-utf16-base, unicode-utf16-string-support
Branch point for: double-double-array-branch, double-double-branch, double-double-reader-branch, dynamic-extent, lisp-executable, mod-arith-branch, ppc_gencgc_branch, release-19a-branch, release-19b-branch, release-19c-branch, release-19d-branch, release-19e-branch, sparc_gencgc_branch, unicode-utf16-branch
Changes since 1.42: +1 -4 lines
Diff to previous 1.42
	Remove an unused slot from classes.

	* src/pcl/defs.lisp (slot-class): Remove unused slot

	* src/pcl/generic-functions.lisp (setf class-initialize-info)
	(class-initialize-info): Remove.

	* src/pcl/braid.lisp (bootstrap-initialize-class): Don't
	set the slot.

Revision 1.42 - (view) (annotate) - [select for diffs]
Fri Jun 6 14:00:05 2003 UTC (10 years, 10 months ago) by gerd
Branch: MAIN
Changes since 1.41: +1 -7 lines
Diff to previous 1.41
	Problems with class precedence lists found by Paul Dietz.

	* src/pcl/defs.lisp (toplevel): Don't compute the cpl of built-in
	classes from the kernel's layout-inherits because that gives wrong
	results, for instance for null.
	(standard-method): Make method the first superclass.

	* src/pcl/braid.lisp (bootstrap-built-in-classes): Use

Revision 1.41 - (view) (annotate) - [select for diffs]
Fri May 23 13:34:04 2003 UTC (10 years, 11 months ago) by gerd
Branch: MAIN
Changes since 1.40: +1 -6 lines
Diff to previous 1.40
	Add fwrappers.  Rewrite TRACE and PROFILE to use fwrappers.
	To bootstrap, use boot12.lisp with pmai's scripts.

	* src/bootfiles/18e/boot12.lisp: New file.

	* src/tools/worldload.lisp, src/tools/worldcom.lisp:
	* src/tools/worldbuild.lisp: Add code:fwrappers.

	* src/docs/cmu-user/extensions.tex (Function Wrappers):
	New section.

	* src/code/fwrappers.lisp: New file.

	* src-fw/pcl/defs.lisp (gdefinition): Don't check for profiled

	* src-fw/code/exports.lisp: Add walker and fwrappers.

	* src-fw/code/fdefinition.lisp (fdefn-init): Set
	*valid-function-names* to nil.
	(encapsulation): Structure removed.
	(do-encapsulations, encapsulation, last-encapsulation)
	(push-encapsulation, encapsulate, unencapsulate, encapsulated-p):
	Removed.  There is a compatibility layer in fwrappers.lisp.
	(fdefinition, %set-fdefinition): Rewritten.

	* src/code/profile.lisp: Remove #+cmu and #-cmu.
	("PROFILE"): Use fwrappers.
	(*profile-info*): Removed.
	(profile-info): Redefined.
	(*existing-encapsulations*): Removed.
	(reset-profile-info, profile-info-profiling-values): New functions.
	(make-profile-encapsulation): Removed.
	(profile): New function name syntax.
	(make-profile-fwrapper-name, make-profile-fwrapper): New functions.
	(def-profile-fwrapper): Precompute some fwrappers.
	(ensure-profile-fwrapper, find-profile-fwrapper, pi-or-lose):
	New functions.
	(profile-1-function): Rewritten.
	(unprofile-1-function): Ditto.
	(re-profile-redefined-function): New function.
	(toplevel): Push it on *setf-fdefinition-hook*.

	* src/code/ntrace.lisp (trace-call): Removed.
	(trace-fwrapper): New fwrapper.
	(trace-1): Use fwrap instead of encapsulate.
	(untrace-1): Use funwrap instead of unencapsulate.

Revision 1.40 - (view) (annotate) - [select for diffs]
Sun May 11 11:30:35 2003 UTC (10 years, 11 months ago) by gerd
Branch: MAIN
Changes since 1.39: +10 -0 lines
Diff to previous 1.39
	More SLOT-VALUE etc. on conditions.

	* src/pcl/slots.lisp (slot-value-using-class)
	(setf slot-boundp-using-class) <condition-class>: New methods.

	* src/pcl/std-class.lisp (initialize-internal-slot-functions): Use
	(shared-initialize): Call update-pv-table-cache-info.
	(compute-slots) <around condition-class>: New method.

	* src/pcl/slots-boot.lisp (ensure-accessor): Use
	Handle condition classes.

	* src/pcl/methods.lisp (*condition-slot-value-using-class-method*)
	(*condition-slot-boundp-using-class-method*): New vars.
	(condition-svuc-method, set-condition-svuc-method): New functions.
	(update-std-or-str-methods): Handle conditions.

	* src/pcl/generic-functions.lisp (condition-class-p): New gf.

	* src/pcl/dfun.lisp (make-accessor-table): Use

	* src/pcl/defs.lisp (*the-condition-class*): New var.
	(slot-name->class-table): New function.
	(condition): New class.
	(*early-class-predicates*): Add condition-class-p.

	* src/pcl/braid.lisp (bootstrap-meta-braid)
	(bootstrap-initialize-class): Add condition-class stuff.
	(bootstrap-make-slot-definitions): Simplified.
	(bootstrap-make-slot-definition): Use slot-name->class-table.

Revision 1.39 - (view) (annotate) - [select for diffs]
Sat May 10 19:09:02 2003 UTC (10 years, 11 months ago) by gerd
Branch: MAIN
Changes since 1.38: +13 -2 lines
Diff to previous 1.38
	SLOT-EXISTS-P is supposed to work on conditions.  Detected
	by Paul Dietz.

	* src/pcl/std-class.lisp (class-direct-slots, class-slots)
	<condition-class>: Remove methods.
	(shared-initialize) <condition-class>: Initialize direct
	and effective slots.
	(direct-slot-definition-class, effective-slot-definition-class)
	(finalize-inheritance, shared-initialize) <condition-class>:
	New methods.

	* src/pcl/braid.lisp (ensure-non-standard-class): Pass slot
	initargs to ensure-class for condition classes.

	* src/pcl/defs.lisp (condition-class): Inherit from slot-class.
	(condition-slot-definition, condition-direct-slot-definition)
	(condition-effective-slot-definition): New classes.

Revision 1.38 - (view) (annotate) - [select for diffs]
Sun May 4 13:11:22 2003 UTC (10 years, 11 months ago) by gerd
Branch: MAIN
Changes since 1.37: +7 -7 lines
Diff to previous 1.37
	Code cleanup.  Use EXTENSIONS package to reduce clutter.

	* src/pcl/defsys.lisp ("PCL", "WALKER"): Use ext.
	* src/pcl/pkg.lisp ("PCL", "WALKER"): Use ext.
	* src/pcl/*.lisp: Remove ext: prefixes.

	* src/pcl/low.lisp (symbolicate*): Renamed from symbolicate.
	* src/pcl/std-class.lisp (shared-initialize):
	* src/pcl/defs.lisp (get-built-in-class-symbol)
	* src/pcl/braid.lisp (initial-classes-and-wrappers)
	(bootstrap-meta-braid): Use symbolicate*.

	* src/pcl/macros.lisp (dolist-carefully): Removed.
	(true, false, zero): Moved to defclass.lisp.
	(printing-random-thing-internal): Removed.
	(printing-random-thing): Removed.
	(rassq): Removed.
	(*keyword-package*): Removed.
	(make-keyword): Removed; import from cl.
	(memq, delq, assq): Macros removed, import from ext.
	(get-declaration): Moved to boot.lisp, where it's used.

	* src/pcl/boot.lisp (get-declaration): Moved here from

	* src/pcl/methods.lisp (named-object-print-function, print-object):
	* src/pcl/low.lisp (print-std-instance):
	* src/pcl/dfun.lisp (print-dfun-info):
	* src/pcl/cache.lisp (print-cache, print-wrapper):
	* src/pcl/boot.lisp (make-early-gf):
	Use print-unreadable-object instead of printing-random-thing.

	* src/pcl/defclass.lisp (true, false, zero): Moved here from

	* src/pcl/methods.lisp (legal-qualifiers-p)
	(legal-specializers-p): Use dolist.

Revision 1.37 - (view) (annotate) - [select for diffs]
Sun Apr 6 09:10:09 2003 UTC (11 years ago) by gerd
Branch: MAIN
CVS Tags: remove_negative_zero_not_zero
Changes since 1.36: +4 -1 lines
Diff to previous 1.36
	Fix TYPEP/SUBTYPEP problems with unfinalized and
	forward-referenced classes.

	* pcl/std-class.lisp (class-finalized-p): Method removed.
	(*allow-forward-referenced-classes-in-cpl-p*): New variable.
	(make-preliminary-layout): New function.
	(shared-initialize) <:after std-class>: Call
	(shared-initialize) <:after forward-referenced-class>: New method
	calling make-preliminary-layout.
	(shared-initialize) <:after structure-class>: Set finalized-p slot
	to true.
	(update-slots): Likewise.
	(shared-initialize) <:after condition-class>: Likewise.
	(inform-type-system-about-class): New method for
	forward-referenced classes.
	(class-has-a-forward-referenced-superclass-p): Moved to info.lisp.

	* pcl/cpl.lisp (compute-std-cpl-phase-1): Allow forward-referenced
	classes in the cpl if *allow-forward-referenced-classes-in-cpl-p*
	is true.

	* info.lisp (class-has-a-forward-referenced-superclass-p): Moved
	here from std-class.lisp.

	* pcl/cache.lisp (make-wrapper): Handle forward-referenced

	* pcl/braid.lisp (bootstrap-initialize-class): Set the finalized-p

	* pcl/defs.lisp (class): Add slot finalized-p.

	* pcl/rt/defclass.lisp (defclass-types.[0-5])
	(defclass-forward-referenced-class.0): New tests.

	Misc fixes.

	* pcl/defclass.lisp (expand-defclass): Remove code papering
	over a potential compiler bug.

	* pcl/macros.lisp (find-class-cell-make-instance-function-keys):
	(setf find-class): Add errorp and environment
	parameters, call (setf kernel::find-class) if new-value is nil.

Revision 1.36 - (view) (annotate) - [select for diffs]
Sun Mar 30 11:44:56 2003 UTC (11 years ago) by gerd
Branch: MAIN
Changes since 1.35: +2 -1 lines
Diff to previous 1.35
	* pcl/defs.lisp (class): Add kernel:instance superclass so
	that classes satisfy the TYPE-SPECIFIER type.

Revision 1.35 - (view) (annotate) - [select for diffs]
Wed Mar 26 17:15:22 2003 UTC (11 years ago) by gerd
Branch: MAIN
Changes since 1.34: +15 -24 lines
Diff to previous 1.34
	* pcl/boot.lisp (parse-defmethod): Rewritten for clarity.  Signal
	an error for most cases of null qualifiers.

	Improve DESCRIBE on generic functions.

	* pcl/env.lisp (method-specialized-lambda-list): New function.
	(describe-object): Use it, and use generic-function-lambda-list.

	* pcl/methods.lisp (generic-function-pretty-arglist)
	(method-pretty-arglist): Remove.

	* pcl/generic-functions.lisp (generic-function-pretty-arglist)
	(method-pretty-arglist): Remove.

	AMOP compliance fixes: Reintroduce class METAOBJECT, make
	This basically reverts a change of dtc from 1998.

	* code/describe.lisp (describe-instance): Check for
	standard-object, not pcl::std-object.

	* pcl/pkg.lisp ("PCL", "CLOS-MOP"): Export more stuff.

	* pcl/generic-functions.lisp: Remove some of the useless comments.

	* pcl/slots.lisp (slot-value-using-class, setf slot-value-using-class)
	(slot-boundp-using-class, slot-makunbound-using-class): Specialize
	on standard-object.

	* pcl/slots-boot.lisp (get-optimized-std-accessor-method-function):
	Remove an std-class-p case.

	* pcl/methods.lisp (update-std-or-str-methods): Use
	standard-object instead of std-object.
	(mec-all-classes-internal): Use *the-class-standard-object*
	instead of *the-class-std-object*.
	(class-test): Don't consider *the-class-std-object*.

	* pcl/low.lisp (pcl-instance-p) [deftransform]: Use
	standard-object instead of std-object.

	* pcl/init.lisp (update-instance-for-different-class)
	(update-instance-for-redefined-class): Specialize on
	standard-object instead of std-object.

	* pcl/dfun.lisp (accessor-values-internal, make-accessor-table)
	(make-accessor-table): Use *the-class-standard-object* instead of

	* pcl/defs.lisp (toplevel): Don't declare *the-class-std-object*
	(standard-object): Single superclass slot-object.
	(metaobject): New class.
	(std-object): Class removed.
	(specializer): Superclass metaobject.
	(definition-source-mixin, plist-mixin): Superclass
	standard-object, no metaclass.
	(documentation-mixin, dependent-update-mixin): No metaclass.
	(slot-definition, method, generic-function, method-combination):
	Superclass metaobject.

	* pcl/cache.lisp (raise-metatype): Don't consider std-class.

	* pcl/braid.lisp (bootstrap-meta-braid): Don't braid std-class.
	(bootstrap-initialize-class): Don't consider std-class.

Revision 1.34 - (view) (annotate) - [select for diffs]
Sat Mar 22 16:15:17 2003 UTC (11 years, 1 month ago) by gerd
Branch: MAIN
Changes since 1.33: +280 -237 lines
Diff to previous 1.33
* bootfiles/18e/boot[12].lisp: Bootstrap files for the lisp:class
= pcl:class part.  To get it booted from 18e, cross-compile using
boot1.lisp as bootstrap.lisp in pmai's build scripts, then do a
normal compile with boot2.lisp as bootstrap.lisp with the
resulting Lisp.

* code/byte-interp.lisp, code/defstruct.lisp, code/describe.lisp:
* code/error.lisp, code/exports.lisp, code/hash-new.lisp:
* code/hash.lisp, code/macros.lisp, code/misc.lisp:
* code/package.lisp, code/pred.lisp, code/sharpm.lisp, code/type.lisp:
* compiler/dump.lisp, compiler/fndb.lisp, compiler/globaldb.lisp:
* compiler/proclaim.lisp, compiler/typetran.lisp, compiler/xref.lisp:
* compiler/generic/primtype.lisp, compiler/generic/vm-type.lisp:
Changes for to use kernel::class etc.

* code/class.lisp (toplevel): Shadow class, built-in-class etc.
(class): Give it conc-name %class-.
(toplevel) [#+bootstrap-lisp-class=pcl-class]: Define old accessors.
(everywhere): Use new class accessors.

* compiler/generic/vm-fndb.lisp (%make-instance): Change from
unsafe to flushable and movable.

* code/ntrace.lisp (expand-trace, untrace): Changes for method

* code/profile.lisp (profile, profile-all, unprofile): Method

* pcl/*.text, pcl/bench.lisp, pcl/extensions.lisp:
* pcl/fast-init.lisp, pcl/precom1.lisp, pcl/precom4.lisp:
* pcl/structure-class.lisp, pcl/user-instances.lisp:

* tools/pclcom.lisp: Changes for my PCL and lisp:class =

Revision 1.33 - (view) (annotate) - [select for diffs]
Thu Feb 6 15:20:12 2003 UTC (11 years, 2 months ago) by gerd
Branch: MAIN
CVS Tags: cold-pcl-base, release-18e, release-18e-base, release-18e-pre1, release-18e-pre2
Branch point for: cold-pcl, release-18e-branch
Changes since 1.32: +1 -1 lines
Diff to previous 1.32
* pcl/defs.lisp (standard-method): Change superclass
plist-mixin to documentation-mixin so that we don't throw
away the method documentation.

* pcl/cmucl-documentation.lisp (setf documentation): Use

* pcl/defcombin.lisp (set-random-documentation): New function.
(load-short-defcombin, load-long-defcombin): Use it.

* pcl/env.lisp (describe-object) <standard-generic-function>:
Print the generic function doc string, if any.  Print method doc
(describe-object) <class>: Print slots.

* code/describe.lisp (describe-symbol): If a class names
a PCL class, describe-object the PCL class.

Revision 1.32 - (view) (annotate) - [select for diffs]
Sat Feb 1 20:42:28 2003 UTC (11 years, 2 months ago) by gerd
Branch: MAIN
Changes since 1.31: +2 -1 lines
Diff to previous 1.31
	Fix bugs detected by Paul Dietz' ANSI test.

	* pcl/defs.lisp (make-class-predicate-name): Handle uninterned

	* code/defstruct.lisp (define-predicate): Don't error out on some
	vector objects.
	(dsd-inherited-p): Use dd-inherited-accessor-alist.

Revision 1.31 - (view) (annotate) - [select for diffs]
Fri Jan 3 18:50:23 2003 UTC (11 years, 3 months ago) by pmai
Branch: MAIN
Changes since 1.30: +10 -1 lines
Diff to previous 1.30
Entomotomy Bug: define-method-combination-arguments-broken

Updated the fix for the broken handling of the :arguments option to
define-method-combination to Gerd Moellmann's latest patch.  Also
includes various indentation fixes and a smallish documentation/comment fix.

Revision 1.30 - (view) (annotate) - [select for diffs]
Sun Dec 22 14:09:51 2002 UTC (11 years, 4 months ago) by pmai
Branch: MAIN
Changes since 1.29: +5 -1 lines
Diff to previous 1.29
Entomotomy Bug: slot-definition-allocation-not-amop-compliant

Added needed second half of patch, from Gerd Moellmann via SBCL, to cure
newly introduced problem with inheritance of class slots.  Also committed
modified version (again via SBCL) of Gerd's COMPUTE-SLOTS revamp for more
modular computation of slot locations.

Revision 1.29 - (view) (annotate) - [select for diffs]
Fri Nov 22 01:05:23 2002 UTC (11 years, 5 months ago) by pmai
Branch: MAIN
Changes since 1.28: +4 -0 lines
Diff to previous 1.28
Entomotomy Bug: generic-function-declarations-unimplemented

Committed adapted patch from Gerd Moellmann via SBCL that implements the
mandated GFs generic-functions-declarations and (setf g-f-declarations).

Revision 1.28 - (view) (annotate) - [select for diffs]
Sat Oct 19 14:56:02 2002 UTC (11 years, 6 months ago) by pmai
Branch: MAIN
Changes since 1.27: +1 -1 lines
Diff to previous 1.27
Merged patch by Gerd Moellmann to replace (load-truename) with
*load-pathname*, thus dropping the function load-truename, in order to
improve location-independent source recording.

Revision 1.27 - (view) (annotate) - [select for diffs]
Wed Oct 9 15:32:28 2002 UTC (11 years, 6 months ago) by pmai
Branch: MAIN
Changes since 1.26: +6 -17 lines
Diff to previous 1.26
This commits various patches submitted by Gerd Moellmann to remove unused
code in various parts of PCL.  See also bug misc-unused-code-in-pcl in

Revision 1.26 - (view) (annotate) - [select for diffs]
Thu Sep 19 17:53:59 2002 UTC (11 years, 7 months ago) by pmai
Branch: MAIN
Branch point for: UNICODE-BRANCH
Changes since 1.25: +1 -2 lines
Diff to previous 1.25
Minor indentation fix.

Revision 1.25 - (view) (annotate) - [select for diffs]
Mon Sep 9 16:08:58 2002 UTC (11 years, 7 months ago) by pmai
Branch: MAIN
Changes since 1.24: +0 -36 lines
Diff to previous 1.24
Patch by Gerd Moellmann to remove further unused code from defs.lisp.

Revision 1.24 - (view) (annotate) - [select for diffs]
Tue Aug 27 19:01:38 2002 UTC (11 years, 7 months ago) by pmai
Branch: MAIN
Changes since 1.23: +2 -2 lines
Diff to previous 1.23
Patch by Gerd Moellmann to turn old-style into new-style eval-when's in
the PCL code base.

Revision 1.23 - (view) (annotate) - [select for diffs]
Mon Aug 26 02:23:12 2002 UTC (11 years, 7 months ago) by pmai
Branch: MAIN
Changes since 1.22: +11 -11 lines
Diff to previous 1.22
Huge patch by Gerd Moellmann that removes PCL::ITERATE and PCL::GATHER*
in favor of normal CL constructs.  In a similar vein to SBCL, this patch
also replaces all uses of #'(lambda ...) by just (lambda ...), and
removes now-dated looking quotes in front of self-evaluating objects,
like keywords and t/nil.  The patch has been slightly frobbed by me,
to correct a couple of slight oversights, and make more effective use
of the loop facility in a number of places.

Revision 1.22 - (view) (annotate) - [select for diffs]
Sat Sep 22 13:57:42 2001 UTC (12 years, 7 months ago) by pw
Branch: MAIN
Changes since 1.21: +1 -2 lines
Diff to previous 1.21
This revision turns on INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS which
represses compiler warnings about undefined class when compiling
defmethods in the same file as the defclass forms. It does this
by calling (lisp:make-class :name class-name) which creates a
minimal entry such that lisp:find-class will return non-nil. The
class entry is filled out at load time. A consequence of this is
that until load time, any attempt to treat that minimal class as
valid will fail, probably because lisp:class-layout => NIL. This
doesn't seem a problem in current practice.

Revision 1.21 - (view) (annotate) - [select for diffs]
Tue Mar 13 15:49:47 2001 UTC (13 years, 1 month ago) by pw
Branch: MAIN
Changes since 1.20: +41 -41 lines
Diff to previous 1.20
Change toplevel PROCLAIMs to DECLAIMs.

Revision 1.20 - (view) (annotate) - [select for diffs]
Mon Aug 7 13:50:21 2000 UTC (13 years, 8 months ago) by pw
Branch: MAIN
Changes since 1.19: +2 -1 lines
Diff to previous 1.19
Disable new code in inform-type-system-about-std-class which seems
to trigger trouble when native compiling defcombin.lisp

Revision 1.19 - (view) (annotate) - [select for diffs]
Sun Aug 6 19:09:14 2000 UTC (13 years, 8 months ago) by dtc
Branch: MAIN
Changes since 1.18: +1 -1 lines
Diff to previous 1.18
The stream class should have kernel:instance as its superclass.

Revision 1.18 - (view) (annotate) - [select for diffs]
Thu Aug 3 16:58:56 2000 UTC (13 years, 8 months ago) by pw
Branch: MAIN
Changes since 1.17: +16 -34 lines
Diff to previous 1.17
These changes remove some obsolete and unused type system interface codes,
and introduces code to "inform-type-system-about-std-class". The effect
of this new code is to put minimal class definitions into the compile-time
environment to prevent undefined-type warnings. These definitions are
replaced with the correct class defs at load-time.

Revision 1.17 - (view) (annotate) - [select for diffs]
Sun May 30 23:13:55 1999 UTC (14 years, 10 months ago) by pw
Branch: MAIN
Changes since 1.16: +17 -33 lines
Diff to previous 1.16
Remove all #+ and #- conditionals from the source code. What is left
is essentially Common Lisp except for explicit references to things
in CMUCL specific packages.

Revision 1.16 - (view) (annotate) - [select for diffs]
Sun Mar 14 01:14:13 1999 UTC (15 years, 1 month ago) by dtc
Branch: MAIN
Changes since 1.15: +3 -43 lines
Diff to previous 1.15
Further cleanup of the code now that the :SETF feature is assumed standard.

Revision 1.15 - (view) (annotate) - [select for diffs]
Thu Mar 11 16:51:04 1999 UTC (15 years, 1 month ago) by pw
Branch: MAIN
Changes since 1.14: +10 -122 lines
Diff to previous 1.14
Cleanup of the PCL directory. Removed files and conditional code
for long dead lisp implementations. Some parts of the code is
now a bit easier to read and (hopefully) understand.

Revision 1.14 - (view) (annotate) - [select for diffs]
Fri Jun 5 02:53:51 1998 UTC (15 years, 10 months ago) by dtc
Branch: MAIN
Changes since 1.13: +30 -54 lines
Diff to previous 1.13
Rework the PCL class hierarchy to better match the disjoint instance
and funcallable-instance types within CMUCL. Add the new class
funcallable-standard-object, and the new class std-object as a
superclass of both standard-object and
funcallable-standard-object. Generic-functions are now
funcallable-standard-objects implemented as FINs and disjoint from
standard-objects which are implemented as instances in CMUCL, fixing
some problems in the type system.

This change moves the PCL implementation away from the MOP
specification which requires that generic-functions be
standard-objects. However ANSI CL does not require generic functions
to be standard-objects and the MOP author Gregor Kiczales suggests it
is appropriate for generic functions to be disjoint from

Revision 1.13 - (view) (annotate) - [select for diffs]
Tue May 19 02:11:44 1998 UTC (15 years, 11 months ago) by dtc
Branch: MAIN
Changes since 1.12: +37 -0 lines
Diff to previous 1.12
Port the defconstructor code to CMUCL.

Revision 1.12 - (view) (annotate) - [select for diffs]
Mon May 4 01:27:24 1998 UTC (15 years, 11 months ago) by dtc
Branch: MAIN
Changes since 1.11: +5 -1 lines
Diff to previous 1.11
Gray streams support:
* Rename the 'stream structure class to sys:lisp-stream.
* Add a new none hierarchical 'stream built-in class which inherits
  from: instance, t.
* Hack in the new stream class as a mixin for the structure base
  lisp-stream class which now inherits from: stream, structure-object,
  instance, t.
* Add a new 'fundamental-stream standard-class which includes 'stream
  as a mixin, and add PCL hacks to allow this to be redefined after PCL is
  loaded to be (defclass fundamental-stream (standard-object stream) ...).
* Add appropriate support to the base stream functions to dispatch to
  the Gray stream functions for the handling of fundamental-streams.
  Some of the lisp-streams encapsulating CLOS streams still need
  a little work.

Revision 1.11 - (view) (annotate) - [select for diffs]
Thu Feb 6 21:24:04 1997 UTC (17 years, 2 months ago) by pw
Branch: MAIN
Branch point for: RELENG_18
Changes since 1.10: +81 -10 lines
Diff to previous 1.10
This commit brings the PCL repository up to release 17f and also includes
the changes in the X86 1.03.7 kit. Although the 1.03.7 changes were
already in the repository, the other files appear to be of early vintage
and do not work with a 17f system. Hopefully all is correctly synched now.

Revision 1.10 - (view) (annotate) - [select for diffs]
Mon Feb 8 17:32:44 1993 UTC (21 years, 2 months ago) by phg
Branch: MAIN
Branch point for: cmu
Changes since 1.9: +19 -8 lines
Diff to previous 1.9
Changed definition of *subtypep to speed up method definition
using code provided by Richard Harris.

Revision 1.9 - (view) (annotate) - [select for diffs]
Tue Jan 12 18:23:56 1993 UTC (21 years, 3 months ago) by phg
Branch: MAIN
Changes since 1.8: +28 -23 lines
Diff to previous 1.8
September-16-92-PCL-e has been incorporated into the CMUCL sources thanks
to Rick Harris. 

Revision 1.8 - (view) (annotate) - [select for diffs]
Mon Nov 9 15:18:49 1992 UTC (21 years, 5 months ago) by ram
Branch: MAIN
Changes since 1.7: +248 -169 lines
Diff to previous 1.7
This is September 92 PCL.

Revision 1.7 - (view) (annotate) - [select for diffs]
Sat Aug 1 15:28:32 1992 UTC (21 years, 8 months ago) by ram
Branch: MAIN
Changes since 1.6: +154 -86 lines
Diff to previous 1.6
This is July 92 PCL

Revision 1.6 - (view) (annotate) - [select for diffs]
Mon Jun 1 18:37:48 1992 UTC (21 years, 10 months ago) by ram
Branch: MAIN
Branch point for: patch_16
Changes since 1.5: +397 -395 lines
Diff to previous 1.5
This is March-92-PCL-2a.

Revision 1.5 - (view) (annotate) - [select for diffs]
Wed Oct 23 16:53:45 1991 UTC (22 years, 6 months ago) by ram
Branch: MAIN
Changes since 1.4: +1 -3 lines
Diff to previous 1.4
Un-commented-out an unused function, to be like the distribution.

Revision 1.4 - (view) (annotate) - [select for diffs]
Sat Oct 19 17:22:16 1991 UTC (22 years, 6 months ago) by ram
Branch: MAIN
Changes since 1.3: +94 -70 lines
Diff to previous 1.3
Merged with latest PCL version.

Revision 1.3 - (view) (annotate) - [select for diffs]
Tue Nov 27 15:44:30 1990 UTC (23 years, 4 months ago) by ram
Branch: MAIN
Changes since 1.2: +25 -2 lines
Diff to previous 1.2
Changed stuff to know that we have setf functions.

Revision 1.2 - (view) (annotate) - [select for diffs]
Fri Sep 7 17:43:47 1990 UTC (23 years, 7 months ago) by wlott
Branch: MAIN
Changes since 1.1: +5 -2 lines
Diff to previous 1.1
Workaround bug in our compiler.

Revision 1.1 - (view) (annotate) - [select for diffs]
Sun Aug 12 03:46:21 1990 UTC (23 years, 8 months ago) by wlott
Branch: MAIN
Initial revision

This form allows you to request diffs between any two revisions of this file. For each of the two "sides" of the diff, select a symbolic revision name using the selection box, or choose 'Use Text Field' and enter a numeric revision.

  Diffs between and
  Type of Diff should be a

Sort log by:

  ViewVC Help
Powered by ViewVC 1.1.5