alaa-alawi

CL-USER> (ql:quickload :hunchentoot)
To load "hunchentoot":
  Load 1 ASDF system:
    hunchentoot
; Loading "hunchentoot"
/bin/sh: 1: Syntax error: ")" unexpected

alaa-alawi

CL-USER> (ql:quickload :clx)
To load "clx":
  Load 1 ASDF system:
    clx
; Loading "clx"
.../bin/sh: 1: fd: not found
/bin/sh: 1: Syntax error: ")" unexpected
; 
; caught ERROR:
;   READ error during COMPILE-FILE:

alaa-alawi

CL-USER> (ql:quickload :esrap)
To load "esrap":
  Load 1 ASDF system:
    esrap
; Loading "esrap"
[package esrap]

; file: /home/alaa/quicklisp/dists/quicklisp/software/esrap-20220331-git/src/package.lisp
; in: DEFPACKAGE #:ESRAP
;     (DEFPACKAGE #:ESRAP

alaa-alawi

# Guide
# Configure the essential configurations below and do the following:
# 
#   Repository Creation:
#     cap deploy:repository:create
#     git add .
#     git commit -am "initial commit"
#     git push origin master
# 
#   Initial Deployment:

alaa-alawi

#!/usr/bin/env bash

# Configuration
SERVER='myserver'
DEPLOY_TO='/path/to/app'
EXCLUDE='*.swp .git/ db/sphinx/ tmp/ log/'
DRY_RUN=false
DEPLOY_GEM_PATH='/opt/ec/ruby/1.8.7/lib/ruby/gems/1.8'

# To improve ssh performance, consider reusing connections:

alaa-alawi

(defun make-upload-filename ()
  (etypecase *upload-filename-generator* 
    ;; the old behaviour.
    (null t)
    ;; the new behaviour.
    ((or symbol function) 
     (lambda (&rest args)
       (let ((filename (apply *upload-filename-generator* args)))
         (when *file-upload-hook*
           (funcall *file-upload-hook* filename))

alaa-alawi

;; original implementation
;; hunchentoot;utils.lisp
;;
(let ((counter 0))
  (declare (ignorable counter))
  (defun make-tmp-file-name (&optional (prefix "hunchentoot"))
    "Generates a unique name for a temporary file. This function is
called from the RFC2388 library when a file is uploaded."
    (let ((tmp-file-name
           #+:allegro