Plaster

(multiple-value-bind (second minute hour day month year) (decode-universal-time (get-universal-time)) (declare (ignore second minute hour)) (format t "Time: ~D/~D-~D" day month year)) (defmacro bind (arg-list function &body body) (let ((dummy) (dummies) (dummy-index 0) (values)) (loop for arg in arg-list do (if (string= (symbol-name arg) "_") (progn (setf dummy-index (1+ dummy-index)) (setf dummy (intern (format nil "D~D" dummy-index))) (push dummy dummies) (push dummy values)) (push arg values))) (setf values (nreverse values)) (setf dummies (nreverse dummies)) `(multiple-value-bind ,values ,function (declare (ignore ,@dummies)) ,@body))) (bind (_ _ _ day month year _ _) (decode-universal-time (get-universal-time)) (format t "Time: ~D/~D-~D" day month year))