|
@@ -37,7 +37,7 @@
|
|
|
(multiple-value-bind (body status headers uri)
|
|
(multiple-value-bind (body status headers uri)
|
|
|
(drakma:http-request +nalunch-mobile+ :cookie-jar *nalunch-cookie-jar* :user-agent +mobile-ua+)
|
|
(drakma:http-request +nalunch-mobile+ :cookie-jar *nalunch-cookie-jar* :user-agent +mobile-ua+)
|
|
|
(declare (ignore status headers))
|
|
(declare (ignore status headers))
|
|
|
- (let* ((body (if (puri:uri= uri +nalunch-mobile+)
|
|
|
|
|
|
|
+ (let* ((body (if (puri:uri= uri (puri:uri +nalunch-mobile+))
|
|
|
body
|
|
body
|
|
|
(nalunch-auth body)))
|
|
(nalunch-auth body)))
|
|
|
(dom (plump:parse body))
|
|
(dom (plump:parse body))
|
