mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Documentation updates.

Browse Source
This commit is contained in:
Gerd Heber 2015-08-05 07:20:56 -05:00
parent 06a9533114
commit eed9c0c91c
1 changed files with 60 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
src/classes.lisp
View File

@ -10,7 +10,13 @@
;;; VARIOUS ;;; VARIOUS
;;; ;;;
(DEFTYPE ANY () t) (DEFTYPE ANY ()
"------------------------------------------------------------------[type-doc]
ANY
A derived type that is equivalent to Lisp's system class T, which includes all
Lisp objects.
------------------------------------------------------------------------------"
t)
;;; ;;;
;;; COMBINATIONS ;;; COMBINATIONS
@ -19,18 +25,21 @@
(DEFSTRUCT (CMBN (:print-function cmbn-print)) (DEFSTRUCT (CMBN (:print-function cmbn-print))
"------------------------------------------------------------------[type-doc] "------------------------------------------------------------------[type-doc]
CMBN CMBN
A structure with slots DEGR and LIST for the degree and the list of terms of Slots: (degr list)
a combination, of type FIXNUM and LIST, respectively. This is the internal A structure with two slots, DEGR and LIST, for the degree and the list of
representation of combinations. terms of a combination, of type FIXNUM and LIST, respectively. This is the
internal representation of combinations.
------------------------------------------------------------------------------" ------------------------------------------------------------------------------"
(degr -1 :type fixnum) (degr -1 :type fixnum)
(list () :type list)) (list () :type list))
#+ccl #+ccl
(DEFMETHOD make-load-form ((c cmbn) &optional env) (DEFMETHOD make-load-form ((c cmbn) &optional env)
(declare (ignore env)) (declare (ignore env))
(make-load-form-saving-slots c)) (make-load-form-saving-slots c))
;; CFFC = CoeFFiCient ;; CFFC = CoeFFiCient
(DEFUN CFFC-P (object) (DEFUN CFFC-P (object)
(declare (type any object)) (declare (type any object))
@ -38,20 +47,45 @@ representation of combinations.
(and (typep object 'fixnum) (and (typep object 'fixnum)
(/= 0 object)))) (/= 0 object))))
(DEFTYPE CFFC () '(satisfies cffc-p)) (DEFTYPE CFFC ()
"------------------------------------------------------------------[type-doc]
CFFC
A derived type to represent the coefficients of terms. In Kenzo, the set of
coefficients it the set of objects which satisfy the CFFC-P predicate:
non-zero FIXNUMs.
------------------------------------------------------------------------------"
'(satisfies cffc-p))
;; GNRT = GeNeRaTor ;; GNRT = GeNeRaTor
(DEFTYPE GNRT () 'any) (DEFTYPE GNRT ()
"------------------------------------------------------------------[type-doc]
GNRT
A type to represent the generators of terms. In Kenzo, the set of
coefficients it the set of all Lisp objects (T).
------------------------------------------------------------------------------"
'any)
;; CMPR = CoMPaRison ;; CMPR = CoMPaRison
(DEFTYPE CMPR () (DEFTYPE CMPR ()
"CMPR repesents the result of comparison operations." "------------------------------------------------------------------[type-doc]
CMPR
An enumerated type to represent the results of comparisons.
------------------------------------------------------------------------------"
'(member :less :equal :greater)) '(member :less :equal :greater))
;; CMPRF = CoMPaRison Function ;; CMPRF = CoMPaRison Function
(DEFTYPE CMPRF () 'function) (DEFTYPE CMPRF ()
"------------------------------------------------------------------[type-doc]
CMPRF
A derived type to represent comparison functions.
------------------------------------------------------------------------------"
'function)
;; (function (gnrt gnrt) cmpr) ;; (function (gnrt gnrt) cmpr)
(DEFUN TERM-P (object) (DEFUN TERM-P (object)
(declare (type any object)) (declare (type any object))
(the boolean (the boolean
@ -59,7 +93,15 @@ representation of combinations.
(typep (car object) 'cffc) (typep (car object) 'cffc)
(typep (cdr object) 'gnrt)))) (typep (cdr object) 'gnrt))))
(DEFTYPE TERM () '(satisfies term-p)) (DEFTYPE TERM ()
"------------------------------------------------------------------[type-doc]
TERM
A derived type to represent terms. In Kenzo, the set of terms it the set of
objects which satisfy the TERM-P predicate: CONSes whose CAR is of type CFFC
and whose CDR is of type GNRT.
------------------------------------------------------------------------------"
'(satisfies term-p))
;; ICMBN = Internal-CoMBiNation ;; ICMBN = Internal-CoMBiNation
(DEFUN ICMBN-P (object) (DEFUN ICMBN-P (object)
@ -72,23 +114,18 @@ representation of combinations.
(DEFTYPE ICMBN () '(satisfies icmbn-p)) (DEFTYPE ICMBN () '(satisfies icmbn-p))
#|
;; CMBN = CoMBiNation
(DEFUN CMBN-P (object)
(declare (type any object))
(the boolean
(and (consp object)
(eql (car object) :cmbn)
(consp (cdr object))
(typep (second object) 'fixnum)
(typep (cddr object) 'icmbn))))
(DEFTYPE CMBN () '(satisfies cmbn-p)) (DEFTYPE BASIS ()
|# "------------------------------------------------------------------[type-doc]
BASIS
(DEFTYPE BASIS () '(or function (eql :locally-effective) #+ecl null)) A derived type to represent the basis of a chain complex. In Kenzo, a basis is
either a (basis-)generating function or, for not finitely-generated modules,
the symbol :LOCALLY-EFFECTIVE.
------------------------------------------------------------------------------"
'(or function (eql :locally-effective) #+ecl null))
;; (function (degr) (list gnrt)) ;; (function (degr) (list gnrt))
;; INTR-MRPH = INTeRnal-MoRPHism ;; INTR-MRPH = INTeRnal-MoRPHism
(DEFTYPE INTR-MRPH () '(or function morphism #+(or ccl ecl) null)) (DEFTYPE INTR-MRPH () '(or function morphism #+(or ccl ecl) null))
;; (or (function (degr gnrt) cmbn) ;; if :gnrt strategy ;; (or (function (degr gnrt) cmbn) ;; if :gnrt strategy