[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-acros.el
From: |
Bill Wohler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-acros.el |
Date: |
Sun, 22 Aug 2004 01:42:44 -0400 |
Index: emacs/lisp/mh-e/mh-acros.el
diff -c emacs/lisp/mh-e/mh-acros.el:1.2 emacs/lisp/mh-e/mh-acros.el:1.3
*** emacs/lisp/mh-e/mh-acros.el:1.2 Mon Aug 16 03:48:53 2004
--- emacs/lisp/mh-e/mh-acros.el Sun Aug 22 05:11:27 2004
***************
*** 121,130 ****
`(progn
(defun* ,constructor (&key ,@(mapcar* #'(lambda (x y) (list x y))
field-names field-init-forms))
! (list ,@field-names))
(defun ,predicate (arg)
! (and (consp arg) (eql (length arg) ,(length fields))))
! ,@(loop for x from 0
for y in field-names
collect `(defmacro ,(intern (format "%s%s" conc-name y)) (z)
(list 'nth ,x z)))
--- 121,130 ----
`(progn
(defun* ,constructor (&key ,@(mapcar* #'(lambda (x y) (list x y))
field-names field-init-forms))
! (list (quote ,struct-name) ,@field-names))
(defun ,predicate (arg)
! (and (consp arg) (eq (car arg) (quote ,struct-name))))
! ,@(loop for x from 1
for y in field-names
collect `(defmacro ,(intern (format "%s%s" conc-name y)) (z)
(list 'nth ,x z)))