   (declare (indent 1))
   (let ((print-circle t))
     `(wandbox-compile :name "CLISP"
-                      :code (prin1-to-string
-                             `(let ((*print-circle* t))
-                                (format t "~{~s~^ ;~%~}"
-                                        (multiple-value-list (progn ,@form)))))
+                      :code ,(prin1-to-string
+                              `(let ((*print-circle* t))
+                                 (format t "~{~s~^ ;~%~}"
+                                         (multiple-value-list (progn ,@form)))))
                       ,@options)))
 
 ;;;###autoload

                   (if (< 20 (length str)) (format "%.20s..." str) str)))
          (dolist (key '("code" "stdin"))
            (setf #1=(cdr (assoc key alist)) (truncate #1#)))
          (wandbox--log "build request: %s" (json-encode alist))
          ))
      )))

(defun wandbox-format-url-buffer (status)
  (declare (special url-http-end-of-headers))

                        (return (cdr (assoc "switches" x))))))
          ",")))

(defsubst wandbox--merge-profile (profile &rest functions)
  (let ((p (copy-sequence profile)))
    (dolist (f functions p)
      (setq p (wandbox-merge-plist p (apply f p))))))

(defun* wandbox-build-request-data-raw (&rest profile
                                        &key compiler options code stdin save
                                             compiler-option runtime-option
                                        &allow-other-keys)
  (labels ((join-as-string (list separator)
             (mapconcat #'(lambda (x) (format "%s" x)) list separator))
           (val (x)
