(defun f (array)
  (cond ((and (first-is-max-p  array)
              (second-is-min-p array))
         (divide-by-2 array))
        ( t array )))

(defun first-is-max-p (array)
  (not (find #'(lambda (x) (> x (car array)))
             (cdr array))))

(defun second-is-min-p (array)
  (not (find #'(lambda (x) (< x (cadr array)))
             (cons (car array) (cddr array)))))

(defun divide-by-2 (array)
  (mapcar #'(lambda (x) (/ x 2)) array))

(defun find (predicate array)
  (cond ((null array)                    nil)
        ((funcall predicate (car array)) t)
        ( t    (find predicate (cdr array)))))

CL-USER 1 > (f '(1.0 10.0 2.0 2.0))
(1.0 10.0 2.0 2.0)

CL-USER 2 > (f '(10.0 1.0 2.0 2.0))
(5.0 0.5 1.0 1.0)

(defvar x 1)
(list x 2) ; => (1 2)
(quote (x 2)) ; => (x 2)

'(x 2)

(quote (x 2))

(defun read-dollar (stream char)
  (declare (ignore char))
  (let ((expr (read stream)))
    (if (listp expr)
        `(list ,@expr)
      (error "Expected list, given: ~s." expr))))

(set-macro-character #\$ #'read-dollar)

CL-USER 1 > (format t "~s" $123
Error: Expected list, given: 123.
  1 (abort) Return to level 0.
  2 Return to top loop level 0.

Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.)

CL-USER 1 : 1 > :a

CL-USER 2 > (format t "~s" $(1 2 (+ 1 2)))
(1 2 3)
NIL

CL-USER 3 > 

CL-USER 1 > (format t "~s" $123