- (when (aref (car (cdr pointer)) 1)
- (setq optional-attributes (cons (car (cdr pointer))
- optional-attributes))
- (setcdr pointer (nthcdr 2 pointer)))
- (setq pointer (cdr pointer)))
+ (if (aref (car (cdr pointer)) 1)
+ (progn
+ (setq optional-attributes (cons (car (cdr pointer))
+ optional-attributes))
+ (setcdr pointer (nthcdr 2 pointer)))
+ (setq pointer (cdr pointer))))