Changeset 4172


Ignore:
Timestamp:
Apr 11, 2006, 12:44:51 PM (14 years ago)
Author:
gb
Message:

WITH-DLL-NODE-FREELIST: syntax to allow specialized list header initialization.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/dll-node.lisp

    r723 r4172  
    191191(defmacro with-dll-node-freelist ((header-var freelist) &body body)
    192192  (let* ((internal-header-name (gensym))
    193          (internal-freelist-name (gensym)))
    194     `(let* ((,internal-header-name (make-dll-header))
     193         (internal-freelist-name (gensym))
     194         (constructor-name 'make-dll-header))
     195    (if (consp header-var)
     196      (setq constructor-name (cadr header-var)
     197            header-var (car header-var)))
     198    `(let* ((,internal-header-name (,constructor-name))
    195199            (,internal-freelist-name ,freelist))
    196200       (unwind-protect
Note: See TracChangeset for help on using the changeset viewer.