home *** CD-ROM | disk | FTP | other *** search
- Added functions:
- (vputprop 'Vv_vector 'g_value 'g_indicator)
- (vget 'Vv_vector 'g_indicator)
-
- work just like putprop and get, but modify the vector property list.
-
- Also:
- you can determine which function is called by lisp to print a vector
- by placing the function to call on the vector's property list under
- indicator 'print'. The print function is called with two arguments:
- the vector and the port.
-
- For example:
- => (defun printv (v port)
- (patom "A vector of size " port)
- (print (vsize v) port))
- printv
- => (setq xx (new-vector 10))
- vector[40]
- => (vputprop xx 'printv 'print)
- printv
- => xx
- A vector of size 10
- =>
-
-
-
-