Changeset 13449


Ignore:
Timestamp:
Feb 19, 2010, 4:56:50 PM (10 years ago)
Author:
palter
Message:

Missed a conditionalization

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-defaults.lisp

    r13448 r13449  
    104104               (set name (lisp-string-from-nsstring nsstring)))))
    105105          ((:color :font)
    106            #+cocotron
    107            (let* ((value (cocoa-default-value d)))
    108              (set name
    109                   (ecase type
    110                     (:color (apply #'color-values-to-nscolor value))
    111                     (:font (funcall value)))))
    112            #-cocotron
    113106           (let* ((data (#/dataForKey: domain key)))
    114107             (unless (%null-ptr-p data)
Note: See TracChangeset for help on using the changeset viewer.