/[cl-table]/test.lisp
ViewVC logotype

Diff of /test.lisp

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

revision 2 by rklochkov, Thu Feb 9 15:45:13 2012 UTC revision 3 by rklochkov, Wed Mar 20 17:22:22 2013 UTC
# Line 15  Line 15 
15          (setf (field str2 'a) "str21a"          (setf (field str2 'a) "str21a"
16                (field str2 'b) "str21b")))                (field str2 'b) "str21b")))
17      (list (field (path->row tab '(0)) 'b)      (list (field (path->row tab '(0)) 'b)
18                          (field (path->row tab 1) 'a)            (field (path->row tab 1) 'a)
19                          (field (path->row tab '(1 0)) 'b))            (field (path->row tab '(1 0)) 'b))
20      (path->row tab '(1 0))))      (path->row tab '(1 0))))
21    
22    

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.5