/[cffi-objects]/setters.lisp
ViewVC logotype

Diff of /setters.lisp

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

revision 7 by rklochkov, Thu Aug 9 16:55:23 2012 UTC revision 8 by rklochkov, Sun Aug 12 17:36:30 2012 UTC
# Line 33  Line 33 
33                     `(when ,field-p                     `(when ,field-p
34                        (unless (initialized ,object ,field)                        (unless (initialized ,object ,field)
35                          (setf (,field ,object) ,field)                          (setf (,field ,object) ,field)
36                          (initialize ,object ,field)))))                          (initialize ,object ',field)))))
37                 fields)))                 fields)))
38    
39  (defun initialized (obj field)  (defun initialized (obj field)

Legend:
Removed from v.7  
changed lines
  Added in v.8

  ViewVC Help
Powered by ViewVC 1.1.5