```common lisp
(defpackage :docker/images
  (:use :common-lisp :docker/request)
  (:export #:list-images))

(in-package :docker/images)

(defun list-images (&optional all)
  (request-json (format nil "/images/json~@[?all=1~]" all)))

(defun inspect-images (name)
  (request-json (format nil "/images/~a/json" name)))

(defun image-history (name)
  (request-json (format nil "/images/~a/history" name)))
```

Use keyword instead of optional arguments
user
```common lisp
(defpackage :docker/images
  (:use :common-lisp :docker/request)
  (:export #:list-images))

(in-package :docker/images)

(defun list-images (&key all)
  (request-json (format nil "/images/json~:[~;?all=1~]" all)))

(defun inspect-images (name)
  (request-json (format nil "/images/~a/json" name)))

(defun image-history (name)
  (request-json (format nil "/images/~a/history" name)))
```
assistant