/[cl-cairo2]/cairo.lisp
ViewVC logotype

Diff of /cairo.lisp

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

revision 1 by tpapp, Mon May 28 19:32:53 2007 UTC revision 6 by tpapp, Thu Jun 21 09:07:42 2007 UTC
# Line 18  Line 18 
18  ;;;;  commonly used macros/functions  ;;;;  commonly used macros/functions
19  ;;;;  ;;;;
20    
21  (defun prepend-intern (prefix name &optional (replace-dash t))  (defun prepend-intern (prefix name &key (replace-dash t) (suffix ""))
22    "Create and intern symbol PREFIXNAME from NAME, optionally    "Create and intern symbol PREFIXNAME from NAME, optionally
23    replacing dashes in name.  PREFIX is converted to upper case."    replacing dashes in name.  PREFIX is converted to upper case.
24      If given, suffix is appended at the end."
25    (let ((name-as-string (symbol-name name)))    (let ((name-as-string (symbol-name name)))
26      (when replace-dash      (when replace-dash
27        (setf name-as-string (substitute #\_ #\- name-as-string)))        (setf name-as-string (substitute #\_ #\- name-as-string)))
28      (intern (concatenate 'string (string-upcase prefix) name-as-string))))      (intern (concatenate 'string (string-upcase prefix)
29                             name-as-string (string-upcase suffix)))))
30    
31  (defun copy-double-vector-to-pointer (vector pointer)  (defun copy-double-vector-to-pointer (vector pointer)
32    "Copies vector of double-floats to a memory location."    "Copies vector of double-floats to a memory location."

Legend:
Removed from v.1  
changed lines
  Added in v.6

  ViewVC Help
Powered by ViewVC 1.1.5