diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-10-21 09:49:19 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-10-21 09:49:19 +0000 |
commit | 1a179b03b02d7967c9eba7ef6f196fcbfbafa15b (patch) | |
tree | a8de78f90c464e285db1136d5857969978d3ad10 /oop/goops.scm | |
parent | b461abe73f84e023fa3df782ea82b3582a48412f (diff) | |
download | guile-1a179b03b02d7967c9eba7ef6f196fcbfbafa15b.tar.gz |
* lib.scm: Move module the system directives `export',
`export-syntax', `re-export' and `re-export-syntax' into the
`define-module' form. This is the recommended way of exporting
bindings.
* srfi-2.scm, srfi-4.scm, srfi-8.scm, srfi-9.scm, srfi-10.scm,
srfi-11.scm, srfi-14.scm, srfi-16.scm: Move module the system
directives `export', `export-syntax', `re-export' and
`re-export-syntax' into the `define-module' form. This is the
recommended way of exporting bindings.
* goops.scm, goops/active-slot.scm, goops/compile.scm,
goops/composite-slot.scm, goops/describe.scm, goops/dispatch.scm,
goops/old-define-method.scm, goops/save.scm, goops/util.scm: Move
module the system directives `export', `export-syntax',
`re-export' and `re-export-syntax' into the `define-module' form.
This is the recommended way of exporting bindings.
* slib.scm (array-indexes): New procedure.
(*features*): Extend. (Probably some of these options should be
set elsewhere.) (Thanks to Aubrey Jaffer.)
* and-let-star-compat.scm, and-let-star.scm, calling.scm,
channel.scm, common-list.scm, debug.scm, debugger.scm,
expect.scm, hcons.scm, lineio.scm, ls.scm, mapping.scm,
null.scm, optargs.scm, poe.scm, popen.scm, pretty-print.scm,
q.scm, r5rs.scm, rdelim.scm, regex.scm, runq.scm, safe-r5rs.scm,
safe.scm, session.scm, slib.scm, streams.scm, string-fun.scm,
syncase.scm, threads.scm: Move module the system directives
`export', `export-syntax', `re-export' and `re-export-syntax'
into the `define-module' form. This is the recommended way of
exporting bindings.
Diffstat (limited to 'oop/goops.scm')
-rw-r--r-- | oop/goops.scm | 92 |
1 files changed, 45 insertions, 47 deletions
diff --git a/oop/goops.scm b/oop/goops.scm index 4f997da3f..b8f63ff27 100644 --- a/oop/goops.scm +++ b/oop/goops.scm @@ -51,6 +51,51 @@ ;;;; (define-module (oop goops) + :export-syntax (define-class class + define-generic define-accessor define-method + method) + :export (goops-version is-a? + ensure-metaclass ensure-metaclass-with-supers + make-class + make-generic ensure-generic + make-accessor ensure-accessor + make-method add-method! + object-eqv? object-equal? + class-slot-ref class-slot-set! slot-unbound slot-missing + slot-definition-name slot-definition-options + slot-definition-allocation + slot-definition-getter slot-definition-setter + slot-definition-accessor + slot-definition-init-value slot-definition-init-form + slot-definition-init-thunk slot-definition-init-keyword + slot-init-function class-slot-definition + method-source + compute-cpl compute-std-cpl compute-get-n-set compute-slots + compute-getter-method compute-setter-method + allocate-instance initialize make-instance make + no-next-method no-applicable-method no-method + change-class update-instance-for-different-class + shallow-clone deep-clone + class-redefinition + apply-generic apply-method apply-methods + compute-applicable-methods %compute-applicable-methods + method-more-specific? sort-applicable-methods + class-subclasses class-methods + goops-error + min-fixnum max-fixnum + ;;; *fixme* Should go into goops.c + instance? slot-ref-using-class + slot-set-using-class! slot-bound-using-class? + slot-exists-using-class? slot-ref slot-set! slot-bound? + class-name class-direct-supers class-direct-subclasses + class-direct-methods class-direct-slots class-precedence-list + class-slots class-environment + generic-function-name + generic-function-methods method-generic-function method-specializers + primitive-generic-generic enable-primitive-generic! + method-procedure accessor-method-slot-definition + slot-exists? make find-method get-keyword) + :re-export (class-of) ;; from (guile) :no-backtrace) ;; First initialize the builtin part of GOOPS @@ -61,53 +106,6 @@ (oop goops dispatch) (oop goops compile)) -(export ; Define the exported symbols of this file - goops-version is-a? - ensure-metaclass ensure-metaclass-with-supers - define-class class make-class - define-generic make-generic ensure-generic - define-accessor make-accessor ensure-accessor - define-method make-method method add-method! - object-eqv? object-equal? - class-slot-ref class-slot-set! slot-unbound slot-missing - slot-definition-name slot-definition-options slot-definition-allocation - slot-definition-getter slot-definition-setter slot-definition-accessor - slot-definition-init-value slot-definition-init-form - slot-definition-init-thunk slot-definition-init-keyword - slot-init-function class-slot-definition - method-source - compute-cpl compute-std-cpl compute-get-n-set compute-slots - compute-getter-method compute-setter-method - allocate-instance initialize make-instance make - no-next-method no-applicable-method no-method - change-class update-instance-for-different-class - shallow-clone deep-clone - class-redefinition - apply-generic apply-method apply-methods - compute-applicable-methods %compute-applicable-methods - method-more-specific? sort-applicable-methods - class-subclasses class-methods - goops-error - min-fixnum max-fixnum -) - -;;; *fixme* Should go into goops.c - -(export - instance? slot-ref-using-class - slot-set-using-class! slot-bound-using-class? - slot-exists-using-class? slot-ref slot-set! slot-bound? - class-name class-direct-supers class-direct-subclasses - class-direct-methods class-direct-slots class-precedence-list - class-slots class-environment - generic-function-name - generic-function-methods method-generic-function method-specializers - primitive-generic-generic enable-primitive-generic! - method-procedure accessor-method-slot-definition - slot-exists? make find-method get-keyword) - -(re-export class-of) ;; from (guile) - (define min-fixnum (- (expt 2 29))) |