/[gcl]/gcl/pcl/pcl_macros.lisp
ViewVC logotype

Diff of /gcl/pcl/pcl_macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Tue Oct 7 21:06:33 2003 UTC revision 1.3 by camm, Fri Oct 10 03:35:53 2003 UTC
# Line 315  Line 315 
315         (loop (when (null .plist-tail.) (return nil))         (loop (when (null .plist-tail.) (return nil))
316               (setq ,key (pop .plist-tail.))               (setq ,key (pop .plist-tail.))
317               (when (null .plist-tail.)               (when (null .plist-tail.)
318                 (error "Malformed plist in doplist, odd number of elements."))                 (specific-error :invalid-form
319                                   "Malformed plist in doplist, odd number of elements."))
320                 (when (not (symbolp ,key))
321                   (specific-error :invalid-form
322                                   "Supplied key is not a symbol."))
323               (setq ,val (pop .plist-tail.))               (setq ,val (pop .plist-tail.))
324               (progn ,@bod)))))               (progn ,@bod)))))
325    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26