1 |
;;;; Copyright (C) 1999 Free Software Foundation, Inc. |
;;;; Copyright (C) 1999,2002 Free Software Foundation, Inc. |
2 |
;;;; |
;;;; |
3 |
;;;; This program is free software; you can redistribute it and/or modify |
;;;; This program is free software; you can redistribute it and/or modify |
4 |
;;;; it under the terms of the GNU General Public License as published by |
;;;; it under the terms of the GNU General Public License as published by |
81 |
(supers caddr) |
(supers caddr) |
82 |
(slots cadddr) |
(slots cadddr) |
83 |
(rest cddddr)) |
(rest cddddr)) |
84 |
(procedure->macro |
(procedure->memoizing-macro |
85 |
(lambda (exp env) |
(lambda (exp env) |
86 |
(standard-define-class-transformer |
(standard-define-class-transformer |
87 |
`(define-class ,(name exp) ,(supers exp) ,@(slots exp) |
`(define-class ,(name exp) ,(supers exp) ,@(slots exp) |